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PAGE O1 -- FRACTALS SOUND 


CNRS = + ma a a 








REM fractals with sound 

MODE @:PRINT CHR$(12):COLORT 0 5 @ © 

INPUT "Geef A met 3XAC3.95"5A! : PRINT 

IF A1<3.0 THEN A!=3.0:1F A!>3.95 THEN A!=4.0 
INPUT “DUUR VAN TONEN OXTIJDC10"; TIJD: PRINT 
IF TIJDX0.0 THEN TIJD=9 

IF TIJD»10 THEN TIJD=19 

PRINT "START/STOP met spatiebalk" 

G=GETC: IF G<>32 THEN GOTO 70 

Z'=RND (1.0) 


REM REPEAT UNTIL SPACE-BAR IS PRESSED 
Z'-AT32!/*(1.0-21) 

SOUND @ 1 15 © FREQ(1000.0#Z!) 

WAIT TIME TIJD 

G=GETC: IF G<>32 THEN GOTO 90 

SOUND OFF 

GOTO 15 


—  FRACTALS GRAPHIQUE 


MODE @:PRINT CHR$ (12) :COLORT @ 5 0 @ 


INPUT "Geef beginwaarde A met 1<A<4 bv 2.8 of 2.7"; AINT! SPRINT 


IF AINT!<i OR AINT!>4 THEN GOTO 5 
PRINT CHR$(12) 


PRINT "Geef maximum van A met ";AINT!;:INPUT "<AC4 bv 3.99 of 3,9"; 


AMAX ! : PRINT 
IF AMAX:<AINT! OR AMAX!24.9 THEN GOTO 25 
COLORS © 5 10 15:MODE & 
SCALE! - (AMAX ! CAINT ! ) / XMAX 
Z'=RND(1.9) 
FOR X=0 TO XMAX 
A!=X#SCALE!+AINT! 
IF A!<2.95 THEN CYCLE=2 
IF A!>=2.95 THEN CYCLE-26 
FOR Y=1 TO CYCLE:Z!-A'*Z'*(1.0-2!) :NEXT Y 
FOR Y=1 TO CYCLE 
Z!=B!*Z!*(1.0-Z!) 
Zl=Z!#YMAX:DOT X,21 Š 
NEXT Y 
NEXT X 
END 





*FRACTALS* 
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The advantage of the following patches is that the "K" and the 
"X" command can be executed now, whilst marker 01 is also present 
in buffer 1 (see last DAInamic, FWP TIP). 


The following addresses, starting from 0959, have to be changed. 


0959 79 FE 07 C8 FE 06 C8 37 C9 
It is not necessary to change address 0966. 


The above changes still leave the possibility of setting more 
than once the same marker, so you are more flexible, however 
multiple markers can introduce errors. For example in case you 
give a "K" command with 2 markers 07, be aware that all the text 
between marker 06 and the last marker 07 will be deleted! 


If you don't want to have the markers more than once (without 


getting an error message), change the the addresses below. 


The above mentioned feature is also incorporated in these 
patches. 


0941 OC 00 

0948 OC OC 00 00 

0951 0C OC OC 00 

0959 79 FE 05 C8 FE 06 C8 37 C9 


In case you prefer "start printing" always from the first line in 


the buffer, instead of the top of the current STEP, change the 
next 3 addresses. 


073E 21 00 30 (21 00 90 for buffer 2) 


Note: If you ever experienced a stack-overflow condition during 


working with FWP it may help to change the content of address 
1313 in 00. 


This is a small bug in the program (1313 is not a joke !!) 


Ger Gruiters 25-10-1984 
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*IMP INT 

CLEAR #100 
INPUT AF 

PRINT : 
HEAP=PEEK (#298) +PEEK (#290 
HSIZE=FEEK (#290 3+PEEK CH29E 
HEND=HEAP+HSIZE 


18 
AAE 
31€ 








UC a mim 


Donor] 5 foin 


+ 
RD 


PRINT "HEAP  "."HSIZE "."H-EHP 
FRIHT HEAP HSIZE> HEHD FP 


BEER 
— —— < pe ee — as je 
Do EOD C 


HEXTCHEHMDO," S":HERTCPPO 
FRIHT 

FOR HF=HEAF Tü HEHD 

4 Pü- PEEKCHP+1+PEER CHP 2256 
FHECPO+PF> IAHD SFFFF 
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E USED: "sHSISE-FH? GOTO 18 





2010 HERHT:FRIMT "HO POINTERS LEFT LEN: 


IH 
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*HEAP ORGANISATIES 
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FRE HEAP 


F.H. CHABOT dr. & dr. 

ORG 
WAR Ei 
HEHD EAU 
FF EüLI 
HF EQU 
FH EAU 





HEHD*2 
FF+2 
HF+2 


START DI 


Fall 
Hf 
H 
GERE) 
H 
E UAR 3H 
# HEHE BEREKENEN EH DPSLññH VOOR LATER GEBRUIK 
LHLD 
»CHG 
LHLD Zan 
DAD Dn 
SHLO HEHE 
* DE FOIHTER OPHALEN DIE AAN HET EIND Web HEAP STAAT 
DER H 
MOU ESM 
DEK H 
ML! D. 
“CHG 
SHLD FPF 
* HPZFEEEGCHZSB ... C OOR DE LOOP UAH START HEBP 
LHLD  :z9E TOT EIND HEAF 2 
SHLD HF 


*DIT IS DE LOOP WAARIN GEKEKEN WORDT OF DE 
FOR LHLD HF AANGETROFFEN EYTE’S DUEREEH 
MOU DM KOMEN MET HET ADRES WAAR ZE 
INS H STRAH | 
MOL DE 2 BYTE’S IM (DEA 
LHLD FF CHL y=PF 
Dip D "HL =CHLI+< DED 
SHLD FH A 
SCHE 
LHLD HF 
CALL 
LHLC: 
DAD B 3 C CHL3=HEHD-HF J 
LXI B, 18-15 TE 
DAD B ; C CHL3=cHL3-S J. ' 
CALL § EC ee 
MCHG (HLI <=> (DE) — [ CHLI=FH J 
DAD B 5, E SHLOTFH-CHEND-HP-S) 1 
CALL HL (HL? 8 


JZ THAR JA GOTO THAR 
LHLD HEE HET VOLGENDE ADRES: 
CALL SUE FROBEREM 
LHLD HF 

IH: H HF=HF+1 
SHLD 
CAD B 

CALL HL 

JHE FOR 

LAI H:3FFFF 


*HEAP ORGANISATIE: 
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CALLM #286 
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i *HEAP DRGANISATIE* 
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== JEROEN DEMO 7 


REM "NI Au retener tenue ny Penne na ny no ae AP Ane Ry e Re P Pa Pa Pa Ape IS RP 


REM Jeroen Overvoorde Helmbloem 5 3968 AC Rotterdam 

REM Telefoon 010-210424 Nederland datum 1-10-1983 

REM Ver tete notum onee Arne AAA AA AAA AAA PPP A ena 

REM —— MÀ —— 
REM Logo Nederlandse Omroep Stichting NOS 

REM —— on nn 
MODE 6:COLORG 9 9 9 9:Cz17:YM-YMAX-20: XM=XMAX:R=19 

POKE &BFEE-13490,H8FF:PDKE SBFEE-15490, #F9 

POKE #BFEE-2092%90, #FF 

FILL 22,YM-80 51,YM C 

R=19:K=C:G=723 MYzYM-19:MX-92:G0SUB 1000 

FILL 72, YM-86 111, YM-19 C 
R=19:K=0:6=167:MY=YM-61:MX=192:60SUB 2000: MY=YM-19:MX=141:GO0SUB 3000 
FILL 122,YM-19 167,VM-89 C:FILL 147,VM-61 211,YM C 
R=29:K=0: MY=YM-40:MX=164:GOSUB 5099: R=29:K=lı B0SUB 5999 


R=19:K=C:6=267:MY=YM-61:MX=292:G0SUB 2090: MY=YM-19:MX=241:60SUB 3000 
FILL 222,VM-19 267,VM-80 C:FILL 267, YM-61 311,YM C 

=293 K=O: G=222: MY=YM-712MX=250: GOSUB 1900: 8-311: MYzYM-9:MX-287: GOSUB 
4000 

FILL 222,YM-BO 279,YM-71 @:FILL 258,YM-9 311,YM 6 

Rz20: K=C: MYz YM-71: 6-222: MX=259: GOSUB 1990:G-2311:MY-YM-9:MX-287:008UB ` 
4090 

FILL 222,YM-71 270,YM-80 C:FILL 257,YM-9 311,YM C 

R=19:K=0:6=221: MY=YM- 61:MX-241:GDSUB 4909: 6=312:MY= YM-19:MX=292: BOSUB 
1960 


FILL 22,YM+6 311,YM*7 23:FILL 22,YM-220 311,YM-219 23 

FOR 1=22 TO 112:DRAW 9,1+128 114,14128 19:WAIT TIME 2:NEXT 

FOR 1=22 TO 112:DRAW 1,150 I,YM 18:DRAW 114,1+128 214,14128 19:NEXT 
FOR 1=22 TO 112:DRAW I+100,150 1+109,YM 18:DRAW 214,1+128 314,1+128 19: 
NEXT: TE=TE+1: IF TE-2 THEM GOTO 330 

FOR 1=22 TO 112:DRAW I14200,150 I4200,YM 18:DRAW 14,1+128 114,1+128 19: 
NEXT 

GOTO 395 

FOR 1-156 TO 240:DRAW 14,1 114,1 19:DRAW 114,1-45 214,1-45 19:DRAW 1+72, 
159 1+72,YM 18:NEXT 

FOR I= 195 TO 240:DRAW 114,1 214,1 19:DRAW 214,1-45 314,1-45 19:WAIT 
TIME 2:NEXT 

FOR 1=195 TO 240:DRAW 214,1 314,1 19:WAIT TIME 2:NEXT 

WAIT TIME 290:L0AD "JEROEN DEMO 8" ` 

DER#R: FOR Y=@ TO R:X=SDR(D-Y#Y) 

DRAW G,MY+Y MX*X,MY*Y KsNEXT Y 

RETURN 

DERKR: FOR Y=0 TO Ri X=S0R (D—Y#Y) 

DRAW G,MY-Y MX*X,MY-Y K:NEXT Y 

RETURN 

D=R#Rš FOR Y=0 TO R:X=SDR(D-Y*Y) 

DRAW MX-X,MY+Y 6,MY+Y K:NEXT Y 

RETURN 

DERER: FOR Y=0 TO R:X-SGR(O-YSsY) 

DRAW MX-X,MY-Y G,MY-Y K:NEXT Y 

RETURN 

D=R+R:FOR V=9 TO R:X=SQR(D-Y#Y) 

DRAW MX-X,MY-Y MX*X,MY-Y K:iDRAW MX+X,MY+Y MX-X, MY+Y KiNEXT Y 

RETURN 


*JEROEN DEMO 7% 
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LE MONITEUR BASIC (#C80C-#C956) 





ier PARTIE : BENERALITES 


Cet article décrit les grandes lignes du fonctionnement des routines du moniteur BASIC du 
DAI. De prochains articles permettront de détailler certaines parties du moniteur. Le DAI 
PC FIRMWARE MANUAL sert de référence à cet article. L'organigramme simplifié ci-joint peut 
vous guider au long de cet article. 


Le moniteur BASIC peut etre considéré comme le coeur du système d'exploitation du 
DAI-BASIC. Sous son controle, des lignes de programme peuvent etre entrées dans le 
TEXT-BUFFER; des commandes directes peuvent etre éxécutées, l'éxecution d'un programme est 
controlée, un BREAK est géré,... 


Le moniteur est appelé par le DAI après un RESET ou la mise sous tension à l'adresse 
#C818. D'autres adresses  (4CB80C, #C814 et 4C823) sont aussi utilisées à la fin certaines 
routines (ceci sera explicité dans la 2em partie) 


INITIALISATION (4C818-4C843) : 


Le moniteur doit etre initialisé. Ceci signifie qu' une situation bien définie de départ 
est à creer. Le STACKPOINTER est initialisé, les flags controlants 1’ éxecution des INPUT, 
appel de programmes et de ss prgms, et de l'encodage des lignes stockées sont remis à 
zéro. Résultat: un DAI pret. Les interruptions clavier et horloge sont 'en ligne’, sans 
lesquelles aucune entrée, ni aucune sórtie sur écran n'est possible. 


ENTREE A PARTIR DE  L'EDIT BUFFER (#C846-#C84E) : 


Le SWITCH d'encodage des entrées 40135 est controlé. Ce switch définie la provenance de 
l'entrée (l'information) qui doit etre encodée. Encodé signifie : traduction des lignes de 
BASIC (commandes directes ou lignes de programme) du BASIC "lisible" en un BASIC codé 
lisible par le semi-compilateur du DAI permettant ainsi Ll'execution de ces lignes. C'est 
dans ce code q'un programme est stocké dans le TEXT-BUFFER. Des détails sur ce pseudo-code 
peuvent etre trouvés dans le NEWSLETTER 11, page 196... 


Si la source est 1’EDIT-BUFFER, alors la saisie des informations à partir de ce buffer est 
préparé via #D879, et l'encodage intervient via #C867. Lorsqu'une ligne est encodée, le 
moniteur recommence de meme jusqu'a l'epuisement de l’edit-buffer. 
À voir également sur ce sujet un précédent article "EDITOR STORY’. 
REMARQUE: L’encodage d'une 'cochonnerie indéfinie’? (c.a.d. le contenu momentane du buffer 
d'entrée d'encodage) intervient aussi si le switch 40135 est 52 !!! Cette faiblesse du 


FIRMWARE s'explique sur la conviction que #0135 est toujours 4-2. 


ENTREE A PARTIR DU CLAVIER ($CB51-8CB64) : 


Si la source d'entrée n'est pas l’edit-buffer, mais le clavier s de signe C3) est 
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affiché à l'écran et une entrée de ligne BASIC est attendue via #DDiA. En toutes lettres: 
le DAI attend une ligne de commandes directes ou une ligne de programme BASIC à stocker 
dans le TEXT-BUFFER, à partir du clavier uniquement. La séquence de saisie ne peut 
s'achever que par un CR ('RETURN") 

Qu par un BREAK. Tous les caractères tapés sont affichés à l'écran La mémoire d'écran est 
alors à ce moment le seul emplacement ou existe l'information entrée. Lorsqu'un retour 
chariot CR est entré, le moniteur commence alors à travailler. Il saisie le premier 
caractére de la ligne entrée dans la mémoire d'écran, pour l'analyser. 


La différence entre une ligne de commandes directes, et une ligne de programme à stocker 
dans le TEXT-BUFFER est la présence d'un no de ligne en tete de la ligne de programme. Et 


si ce no existe, alors la ligne doit se coder dans le text-buffer. Dans le cas contraire, 
et son execution doit suivre immédiatement son encodage. Enfin, si le premier caractere 
est un CR, la ligne d'entrée est non valide , et le moniteur attend aprés une autre ligne. 


ENCODAGE DE LIGNE DE PROGRAMME (4C867-4C86A) : 


Si une ligne de programme a été entrée, elle est encodée et stockée dans le TEXT-BUFFER, 
à un emplacement correct; ce qui signifie dans l'ordre des numéros de ligne. Le moniteur 
est relancé pour saisir la nouvelle ligne. Des détails sur le processus d'encodage seront 
apportés dans un prochain article. 


ENCODAGE DE LIGNE DE COMMANDES DIRECTES (#C84D-#C87D) : 


La ligne de commandes directes est encodée via une routine d'encodage d'ordres BASIC via 
RST1/00. Le résultat de ce processus, le code "semi -compile” , est stocké dans le buffer 
d'entrées  encodées  EBUF  4013E-01BD. Ce buffer de 128 octets explique l'erreur "LINE TOO 
COMPLEX? qui intervient pour une ligne d'instructions encodées de pius de 128 octets 


Le flag #0117 est activé (#FF), simulant ainsi un RUN de lignes de programme. Le registre 
BC, utilisé pour indiquer où le moniteur est actif dans dans la ligne de commandes en 
cours, pointe sur le debut de la ligne dans le buffer d’entrées encodées EBUF, et la ligne 
de commandes est prete à s’executer. 


EXECUTION DE COMMANDES DIRECTES OU DE LIBNES DE PROGRAMMES 


Ce chapitre concerne aussi bien l'execution de commandes directes que celle de lignes de 
Programme sockées dans le TEXT-BUFFER. La seule différence concerne le contenu du registre 
pair BC. Il pointe vers le buffer d'entrées codées EBUF pour l’execution de commandes 
directes.Et dans le cas de l'execution d'un programme stocké dans le buffer de texte, il 
pointe sur le début d'une ligne de texte dans ce buffer. Le premier caractére d'une ligne 
est alors saisi.Si c'est un code (NDT: Jan Boerrigter parle d'un 'token', soit un signe, 
une marque...) -une commande BASIC sous sa forme compilée- l'adresse de départ de la 
routine d'exécution de la commande BASIC correspondant à ce code est trouvée dans la table 
#CF02, et cette routine est executée via #C8A9. Dans le cas ou le premier octet n'est pas 
un code (SCBES), il peut alors etre soit un '@', soit l'octet de longueur placé au début 
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d'une ligne de programme. Un ’@’ indique alors la fin du contenu du TEX-BUFFER, (ou un '@' 
est inséré après la dernière instruction ), ou la fin d'une ligne de commandes directes 
(voir #C876). La rencontre d'un '6* relance le MONITEUR. Si le premier octet lu par le 
moniteur est l'octet de longueur d'une ligne de programme stockée, alors le TRACE/STEP 
FLAG est (50115-80116). Si l'un de ces flags est ACTIF, la nouvelle ligne de programme est 
affichée sur l'écran. Dans le cas du FLAG STEP, l'enfoncement de la touche SPACE est 
attendue.Si la touche 'BREAK' n'est pas enfoncée, le moniteur continue en #CH7F, 


LA FIN DE CERTAINES ACTIONS (#CSAA-#CBBS) : 


Quand le code a été trouvé, quand l'execution de la routine est terminée, le moniteur 
retourne en #C88F. Il controle alors l'éventualité d'une fin spéciale de la routine BASIC 
en cours. Cette 'fin speciale! es signalée par un code dans l'accumulateur A et la mise 
sur ACTIF du CARRY-FLAG aprés l'execution de la routine BASIC. Voici par exemple #DFO3: 
"STOP? : CYzi, A=3 


Quatre actions sont possibles: . 

9: #C908-#C915 : Après "LOAD" : if 'LOAD' n'est pas une commande directe, 

chargé sera démarré immédiatement. 

CAN'T CONTINU sApres certaines commandes qui provoquent unemodi fication 
des pointeurs de programme, ou qui altérent le contenu du TEXT-BUFFER 
le moniteur est relancé. 

Aprés un 'soft break' (BREAK provoqué par le programme),le BREAK doit 
etre pris en compte et traité. 

Après la commande 'STOP' d'une ligne BASIC . L'endroit ou s'arrete le 
programme doit etre mémorisé et un 'STOPPED IN LINE....’ est affiché. 
D'autres traitements interviennent comme pour le 'soft break? 


le programme 


1: #C818 


2: SCHCO-SCBCB ; 


Q 
° 


2 SCBBB-SCBBD : 


PROGRAMMEERTECHNIEKEN { NO 13, page 361) 

Voyons maintenant le sujet d'aujourd'hui: les couleurs 14 à 19 d'une part et les 
couleurs 20 à 23 d'autres part. je commencerais avec ces derniers, l'utilisation 
des couleurs 29 à 23 servant dans le dessin en mode 4 couleurs , C'est pourtant 
simple . Au tout debut d'un programme , nous placons l'ordre COLORG A BC D ou 
A B Ë D sont nos quatres couleurs desirees.Dans notre programme, chaque appel de 
ia couleur 26 donnera la Couleur À ,21 la couleur B , et ainsi de suite... C'est 
d'ailleurs une bonne habitude de commencer par une instruction COLORG,plutot que 
par une instruction MODE, Nous eviterons ainsi de voir l'ecran prendre une 
voliente teinte jaune ( provenant du precedent ordre COLORG ) plutot que le noir 
souhaite. Dans le mode 16 couleurs,la premiere couleur de l'ordre COLORB devient 
la couleur de fond,et le bord ’obtient’ aussi cette couleur.Ceci non pas avec un 
ordre FILL 6,8 XMAX,YMAX K , mais seulement avec un nouvel ordre COLORS suivi de 
MODE 1,2 ou S.L'avantage de l'habitude de surtout utiliser les codes couleurs 26 
à 23 est dans le fait que, pour un nouvel usager, une mauvaise combinaison de 
touleurs est facile à modifier. Sur mon Moniteur RBB, j'ai l'excellente habitude 
de prendre les couleurs @ 1 2 Z,mais je comprend que l'utilisateur d'un moniteur 
noir et blanc me maudisse si je choisis les couleurs 4 5 8 13 i, 
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récupérer 
de DNA: ceci en vue de l'i 









& DNA permet de 
la commande I#L. 
jt autre usage. 


Cette petite modif 


cation 
dans le Duff i 


le 
; un te 





Marche à suivre 1 


1. 








Lire DNA, 





Introduire la moei fi ion par SUBSTITUTE. 
(selon le 
suivantes s 





initialis 
veut utili 


en 





»G1100 


Lire le programme que l'on veut éditer, 


Taper la commande TL, 






pointée par FTRBUF (41173741178) 
FIN pour buffer de EWE), 


Taper JU. et à S liia 


substituer 





Remplacer le contenu de HEEE par HEE (Bypass clear buffer), 
PAEL CHE) 


Ci-dessous le programme et les commentaires ! 





FAGE O1 DNA mmm BUFFER FWP 
PTRBUF — EQU 
ORG 
204. CDSEDD CALL. 
oos 7E LOOF MOV 
066 EG7F ANI 





Il faut masquer le bit 7 car EWE 
n'affiche pas les caracteres HEZE, 








007 LEFO & INX H AH MO OH DH OO NON 
OOB LEFI ES PUSH H * SYMBOL TABLE 
009 1EF2 207511 LHLD — PTREUF — a y x OOOO RR OOK 
010 1EFS 77 MOV M, À 
garnit ici le buffer de FWF. LOOF LEED FTREUF 1175 
Odd 23 INX H 
O12 227511 SHLD  FTRBUF 
remet à jour le pointeur, 
O13 Ei FOr H 
restitue le pointeur pour DNA 
on continue le traitement normal. 
014 FEOD CRI :0D 
015 CAQS LF JZ : 1FO6 
O16 2 CD7711 CALL  :1177 
O17 š CREDLE JME LOOF 
Ooie END 
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FYSISCHE GEOGRAFIE 
en KLIMATOLOGIE 


de OMBROTHERMISCH DIAGRAM 
SERIEM 


















à KLINABFEK ih BAGHOULS 






N 
4- INOEFÈNER vapor 








| J BE HELLINGSGRAAD ` 


OF TEL EN VERTIKALE OUERORI J 


5- INDEFENEN BEREKENEN | 
5- RELIEFS 
7- KOSMISCHE KALENDER 















Een nieuwe collectie onderwijs-programma’s , verzameld door 

Marc Antrop. 
audio 
DER 


1909 Bfr 
1150 Bfr 





D - BASIC 





DBASIC version 2.2 and how to get it... 


W.Coremans has released a new version of DBASIC, (see also 
his article on p.427-430). 
À few small bugs have been corrected but what is more 
important, 2 beautiful extensions for DBASIC are available 
now: i/ a very special format listing , with extra list 
of extended commands & functions, 
procedures,functions,labels,arrays and variables, 
(see sample program on p.429-4:0), 
2/ another extension, nffering true programmable 
function keys. 


If you already own the DBASIC program and you want these 
new facitilies tagether with the new version of DBASIC, 
send us your cassette together with 250 Bfr for mailing and 
administration costs. 

For compatibitily reasons, only version 2.2 will he 
delivered in the future. 


note : we look forward to receive the first DBASIC programs! 


#NEW SOFT : FG/DB ext« DAinamic 84 - 25 397 





oo 
^ 





r kleine bedrijven of verenigingen, voor * 
gekhouding vanaf het invoeren van de 
en met de verlies- en winstrekening, 








PAGE Oi -- RAUTEN 
het boekhouden is voldoende om met dit 3e MODE G:COLORG 1 1 1 1 
uit te voeren. 
5e REM ......... FENSTERLN .... BY ROLF SCHALL. 
dubbel-boekhouden 199 REM ....... BLAU-WEISS ....... 
van debet en credit 118 FILL 33,21 XMAX-33,YMAX-21 21:COLORG 1 15 15 15 
zijn, voordat die A12 FILL XMAX/2-36, YMAX/2-24 KMAX/2+36,YMAX/2+24 23 
115 FOR Xe-e TU 1000-59 STEP 59:X=X9 
129 1 FOR A=0.0 TO YMAX-20.0 STEP 7.0 
139 2 IF X<7 THEN 150:XsX-8:1F X<XMAX-32 THEN GOSUB 500 
140 1 NEXT A 
de 29 groot 159 NEXT XO 
datum, boek- 
ing voor elke 200 REM ....... FARBWECHSEL ....... 
210 R=29.0:G60SUB 609 
220 FOR 121.0 TO Z0:COLORG 1 15 15 1:WAIT TIME 40-I:COLORG 1 15 1 15:WAIT 





TIME 20-I:NEXT 
230 COLORG 1 15 15 1:R=23:60SUB 600 
240 FOR I=1.8 TO 2@:COLORG 1 15 15 1:WAIT TIME 40-I:COLORG 15 1 15 1:WAIT 





rt 
m 


graotboskrskeningen als nodig tegen 















































* Vargissingen onmiddellijk en eenvoudig op het scherm te TIME 20-1: NEXT 
corrigeren voordat wordt daorgeboskt. 230 COLORG 1 15 15 1:R-20:G08UB 600 
289 FOR I-1 TO 15:COLORG 1 15 RND(15) 15:WAIT TIME SO:NEXT 
* Het saldo automatisch naar een van de de BTW rekeningen te boeken 270 FOR I-1 TO 20:C=RND(15):COLORG C 15 C 15:WAIT TIME 30:NEXT 
door deze als als te gebruiken 280 COLORG 15 15 1 1 
299 GOTO 296 
* Reeds opgeslagen gegevens te controleren en naar behoefte te 
ijzigen. 598 REM ...... RAUTENDRUCK ...... 
520 FOR 1=9.0 TO 13.0:DRAW I+X,1+A I+X+20, I+A+7 16:NEXT: RETURN 
* scherm of op 
al. 600 REM ....... RAND ....... 
618 FILL 0,0 XMAX,29 R:FILL 0, YMAX-20 XMAX,YMAX R 
# per grootboekrekening te vervaardigen. 629 FILL 0,21 32,YMAX-21 R:FILL XMAX~32,21 XMAX, YMAX-21 R:RETURN 
# later gebruik en om 
# arkomen is printen op papier of wegladen ap 
mogelijk als de gegevens niet in evenwicht | 
serst controleren en wijzigen. | ERRATA = numbers up 
* moment een  tussentijdse proef- en saldi- 
gen. 
* Een lledige (tussentijdse) balans met resultatenoverzicht i 
te vervaardigen, zonder dat er ists met de andere gegevens | 
gebeurt, anders dan transporteren. Hierdoor kan bijvoorbeeld | 470 Q=RND(4.0):IF (Q+00) MOD 4-1 GOTO 470:G60SUB 740 
elk rtaal sen overzicht vervaardigd worden, wat voor een i 519 — COLORT 8 8 8 9:FOR Y=0@ TO B:S$="";FÜR X=0 TQ B#7:S$=S$+CHR$(11):NEXT 
goede bedrijfsvoering erg belangrijk kan zijn. 
* Een automatische kapitaals smutatie, waarbij het resultaat i 
di ! itaal geboekt wordt. (Ook tussentijds audi a: 2909 
z de gegevens). der :2158 
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mt nde veranda 
senqa get 
BC 


RR: 





á Ë 








ideii d dă d dă ainu ETS GS i d i iad ddd SSSR 
x fn 


* Wijziging: 89 kolommen tekst op de DAI Li 
g 


Li 
BR GC SNE EEE EE 


omdat bij mij de belangstelling groot is om op-korte termijn “CPM” software te 
gaan "draaien" op sen apart systeem, waarbij de DAI als terminal moet gaan 
dienen. Hierbij is echter wel rasdzaam dat men over een terminal'beschikt met >= 
88 kolömmen- en 2*24 rijen tekst. Als men in de toekomst op de DAI zelf "CPM" 
gaat "draaien" lijkt mij deze wijziging ook uiterst zinvol. Om de wijzigingen 
beperkt te houden zijn alle screen modes onveranderd gebleven, behalve de laaste 
resolutie tekst modes, Naar mijn weten wordt deze tekst modes door niemand 
gebruikt, zodat ik deze modes (16 kolommen tekst) omgebouwd heb naar 88 kolommen 
tekst, met als praktische mogenlijkheid van 24- of 25- of 26- rijen tekst. Met 
normaal gebruik van de DAL merkt niemand lets uan de hard-ware ingreep. 


Alvorens men de beslissing neemt om de DAI te gaan wijzigen moet men vast 
stellen dat zijn of haar machine voorzien is van snelle type dunamishe Ram 
geheugens, Het tupe Ram moet zijn: 416-2 of 4116-2 of 16k2 of dergelijke 158 nS 
Ram ic's, Is dit echter niet het geval dan kan men de wijziging niet uitvoeren 
of men moet natuunlijk de geheugen ic^s vervangen door alreeds 1 van aangegeven 
typen, Mijn machine was al voorzien van het snelle type Ram ic’s. (DAI Rev, 4) 


Door de nog te omschrijven wijziging ondergaat de betekenis van de lijn control 
words van het video screen geheugen een kleine aanpassing: 


High adar.bute | Video screen mode 
MODE ! 7 6 5 4 1 Voor wijziging ' Na wijziging 
asses EEEE i nah ea wer e EE same mnt mmm t a aee ae dm mmm 
2 1 8 8 8 8 ! 88 Kol. 4 Kl. Graf, ! ldem 
4 19 8 8 1 1 176 Kol. 4 Kl. Graf. I Idem 
6 1 88 18 ! 352 Kol. 4 Kl, Graf. ! Idem 
(8) 10814 ! 528 Kol. 4 Kl. Graf, ! Idem 
1 ! 1 
?79? 18188 1 11 Kol, 4 Kl, Tekst ! 88 Kol. 4 Kl, Tekst 
od 10 4 8 1 |! 22 Kol. 4 Kl. Tekst ! Idem 
= 1 @ 4 4 9 44 Kol, 4 Kl. Tekst ! Idem 
8 1 @ 4 44 | 66 Kol, 4 Ki. Tekst ! Idem 
I ! ! 
4 1 1 8 8 9 88 Kol,16 Kl. Graf, | Idem 
3 ! 186 4 1 176 Kal.16 Kl. Graf, | Idem 
5 1 48 18 ! 352 Kol.16 Kl. Graf. ! Idem 
<?) ! 4 8 1 1 ! S26 Kol.16 Kl, Graf. | idem 
i 1 ' 
(ză t 11966 1! 11 Kol.16 Kl. Tekst | 88 Kol.i6 Kl, Tekst 
= $4404 |! 22 Kol.16 Ki, Tekst ! ldem 
= 1 4 1 4 @ 1 44 Kol,46 Kl, Tekst ! Idem 
= 1 4 4 4 4 66 Kol.46 Kl. Tekst ! Idem 
! ! 1 


Om de wijzigingen hardware-matig beperkt te houden wordt en tijdens de nieuwe 89 
(88) koloms tekst mode wordt er gebruik gemaakt van een andere character set. 
deze set is gebaseerd op een 6#18 matrix (spacing) in plaats van de in de DAI 
gebruikte 8411 matrix (spacing), Dit houdt in dat de huidige character generator 
prom moet worden vervangen door 4k eprom van het type 2732(A) of 2532, In de ene 
helft van de prom zit dan de normale character set van de DAI, terwijl in de 
andere helft dan de aangepaste character set bevindt, Dit laatste wordt 
specifiek voor de 88 (88) koloms tekst modes gebruikt. De nieuwe character prom 
dient op een ic-voet geplaatst te worden in verband met de nog eventueele latere 





wijzigingen aan de character sets. De omschakeling van de character sets gebeurd: 


- handware-matig. 
Vanzelf gerekend moet de snelheids selectie prom (749288 bruin ic 5) (resolutie 


besturing) vervangen worden door een nisuwe prom van een dergelijk type met een 
aangepaste inhoud ( 745288 of 828123 >. 


ir 












Fovens wordt @ SYevoudig-ingut mand? circuit toegevoegd om het 
ya wat ai € Over ad aan) welk mpeci rien t gebruikt voor 
ties Bas ome teket moden te kunnen bewerkstsiliggen. Het genoemde ic wordt 





boven op een ander ie 





G ep L ast. mt 
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De 


RAS timing van de gebeugen chips mos worden teruggebracht van ongeveer 





nS naar ongeveer 168 nS. Dit houdt een vervanging in van een timing conde, savor. 


Verder moet sen aantal prent-sporen worden doorgesneden en moet er een aantal 
draadjes worden gelegd, 


Kosten plaatje: 
- Eventueel snellere geheugen ic/s (158 nS) 


HCC Hardware service 4116-2 (24%) (1 #1 182,48) 
= Nieuwe character generator ic 2732(^) of 2532 
HCC Hardware service 2732 | fl 18,95 
7 Mieuue snelheids selectie prom ic 745288 of 
829123 : fl 19,98 
= Een ic t.b.u. cycle skipping 74.918 ; 41 2,58 
- Enventueel ic voet t‚b.v. character gen. €: $1 Zu) 
- 4 weerstand + 3 condensatoren : fl 2,T- 
- montagedraad, soldeertin en verzendkosten DT 42,-- 
= 4 a 2 avonden montage- en testwerk Ci F1 777,27) 


Is de machine van het snelle type Ram ic’s voorzien, beschikt men over hardware 
ervaring, test- en meet- en programmeer apparatuur, is de wijziging goedkoop uit 
te voeren, Niet is meegerekend de kosten welke eventueel zijn verbonden aan de 
bijbehorende (firm-) (soft-) ware aanpassingen / toevorgingen, 


De hiervoor gobaal aangegeven wijzigingen wil tk pas in details publiceren (ook 
in DAInamic.) en vervolgens vrijgeven nadat ik een aantal gewillige 
"slachtoffers" heb gevonden om hun of haar machines tegen kosterijs aan te laten 
passen om zodoende wat meer ervaring or te kunnen doen, Tevens wil ik dan van 
hun bevindingen op de hoogte gesteld te worden. 


Voordat ik deze brief heb geschreven heb ik al enkele weken met de nieuwe tekst 
modes gespeeld. Hierbij is de machine niet "plat" gegaan ten gevolge van 
hardware fouten. Mijn aanbeveling is om een nieuwe tekst mode te definieeren, 
bestaande uit 88 kolommen en 26 rijen tekst, gebruik makend van de 4 kleuren 
mode. De naamgeving voor deze nieuwe screen mode stel ik dan voor: "MODE S9",(R1 
reeds aangegeven in tabel,) 


Voor diegenen die de 88 (88) koloms tekst geheel software matig willen oplossen 
in een "MODE 8" omgeving door middel van een speciale "FOT" wil ik de door mid 
gebruikte character set beschikbaar stellen. De software oplossing heeft als 
belangrijke nadelen: Bijna 32 Kb geheugen in gebruik in plaats van ruim 4,6 Kb 
met de hardware oplossing ( (8842*2)*26*2*16 >, en zal bijzonder traag zijn in 
verband met het scrollen en het clear screen commando. Hierbij is praktisch 
slechts 24 rijen tekst mogenlijk. 


De (K)TV- en video monitor interface kaarten behoeven niet te worden aangepast. 
Nodig is misschien wel dat de resolutie van met name de "pal Color tu interface 
chant" verbetert moet worden als men de 88 (88) koloms tekst mode op sen gewone 
KIV wil gebruiken. Bij de overige Interface kaarten is de resolutie al groot 
genoeg. De wijzigingen die ik een ieder aanbeveel ten aanzien van de “pal colon 
tu chart" heb ik al reeds omschreven in DAlnamic 18, (Alleen uit te voeren, 
welke zijn omschreven in hoofdstukken î en 2.) 


Ik hoop met de hiervoor omschreven 88 koloms aanpassing een kleine impuls te 
kunnen geven ten voordelen van de DAI personal computer, waardoor misschien de 
levensk ans van deze overigs schitterende machine wat toeneemt. 

Gaarne ontvang ik opmerkingen en suggesties ten aanzien van dit onderwerp. 

Ik hoop op de volgende landelijke bijeenkomst van de DAI~G@ te Utrecht het een 


en ander te kunnen demonstreren. 


Anton Doornenbal, 


Oud AA 39A, 
3621 LA Breukelen. 
Tel, Prive + 03462-63237 


Kantoor : 835-8910936 
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_ GATE 2 eos 


mo a SA 








SAVEV / LOADV (c) Ch. POELS 25/12/93 










The instructions LOADA and SAVEA of BASIC have a few limitations 
which can become very troublesome if one desires to handle arrays of im- 
portant dimensions, for instance in the case of files on cassettes. 





Indeed, when we save an array on cassette, BASIC reorganizes all 
the data of the array before recording them. This reorganization 
requires a memory area which lies immediately behind the SYMBOL TABLE. 
This is a major inconvenience if our BASIC program is very big and if 








too little memory is left over for this operation. In that case, an er- 
ror message is displayed: "OUT OF MEMORY", 











Similarly, when we load an array in memory, data are first saved 
in bulk behind the SYMBOL TABLE and then reorganized and transferred 
into the HEAP, This operation can be very lenghty, and the fact that 
digital cassettes are used does not, unfortunately, change anything to 
this state of affairs..... 








In order to cope with this problem, I have written a routine which 
saves directly on cassette the whole of the HEAP and the SYMBOL TABLE. 
This routine has also its drawbacks, but it can be very useful in cer- 
tain cases. Indeed, it is not necessary anymore to have a free memory 
area available for reorganization.Moreover, the waiting time after LOADA 
is cancelled. These 2 reasons seemed enough to me for writing this rou- 
tine. In order to be able to use it, two limitations have to be kept in 
mind: when loading the variables, the CLEAR and the BASIC program have 
to be exactly the same as when the recording of variables was done'More- 
over, after loading the variables, all their values are updated (because 
the whole of the variables has been loaded). It is therefore advised to 
perform the reading of the variables at the beginning of the progam, du- 
ring the initializations. 

















Use of the routine: saving of the variables nccurs as follows: 
CALLM #54A,A$ (ñ$ being an alphanumeric variable containing the name of 
the file). The FILE TYPE of this file is "3". 










To reload the variables: CALLM #300, AS. 






>D300 390 
0300 CS DS ES FS F3 3A 40 00 F& CO 32 40 00 32 06 FD 
O310 SE 23 56 EB 06 33 OE FF CD CE 02 2A 9B 02 11 OO 
0320 F9 CD DI 02 D? AD D2 2A Ai 02 11 00 F9 CD Di 02 
0330 D2 A8 D2 22 AZ 02 CD D4 02 34 40 00 Eé 3F 32 40 
0340 00 32 06 FD FB Fi Ei Di C1 C9 C5 DS ES FS F3 3A 
0350 40 00 F6 CO 32 40 00 32 06 FD 3E 33 SE 23 56 EB 
03560 CD C5 02 2A 9D 02 EB ZA 9B 02 CD CB 02 2A A3 02 
0370 EB 2A Al 02 7B 9D SF 74 94 57 CD C8 02 CD CE 02 
0380 3A 40 OO E6 SF 32 40 00 32 06 FD FB Fi Ei Di Ct 
0390 C9 ; 
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— 


I#L. 


001 
002 
003 
004 
005 
006 
007 
008 
` 009 
010 
Oii 
012 
012 
014 
015 
016 
017 
018 
019 
020 
021 
022 
023 
024 
025 
02 

027 
028 
029 
O20 
O31 
032 
033 
034 
O38 
OF 

037 
03 

03 

040 
641 
042 
043 
044 
045 
046 
047 
048 





PAGE Ot 


0300 
0301 
0302 
0303 
0204 
0305 
0208 
036A 
Q30D 
0310 
311 
6312 
0313 
0318 
0316 
0318 
OZIK 
031E 
0321 
0324 
0327 
OZZ84 
0320 
0330 
OSSS 
OZA 
0337 
OSSC 
OXSE 
0341 


0344 ° 


0345 
0344 
0347 
0348 
0349 
O34A 
O34B 
034€ 
034D 
O34E 
O34F 
0352 
0354 
0357 
O35A 
O35C 
035D 
035E 
O35F 
0360 
0363 


cs 
DS 
ES 
FS 
F3 
344000 
FSCO 
324000 
S205FD 
SE 
23 
56 
ER 
0633 
OEFF 
CDCEG2 
209602 
1100F9 
CDD102 
D2ADD2 
266102 
1100F9 
CDD102 
2A8D2 
224302 
CDD402 
3a4000 
E63F 
324000 


3206FD 


FS 
384000 
Fato 
324000 
S206FD 
SESS 
SE 

23 

56 

ER 
CDC502 
2A9D02 












































DLECT 








ORG 

PUSH 
PUSH 
PUSH 
PUSH 


LDA 
ORI 
STA 


MOV 
INX 
MOV 
XCHG 
MVI 
MVI 
CALL 
LHLD 
LXI 
CALL 
JNC 
LHLD 
LXI 
CALL 
JNT 
SHLD 
CALL 
LDA 
AN 
STA 
STA 


FOP 
POF 
POF 
POF 
RET 


PUSH 
PUSH 
PUSH 
DI 
LDA 
ORI 
STA 
STA 


MOV 
INX 
MOV 
XCHG 
CALL 
LHLD 


*SAVEV / LORDVS 


300 


a" 
C,:FF 

2 2CE 
3298 
D,:F900 
:2D1 
:D2AD 

s 2Ai 
D,:F900 
:zD1 
:D2A8 
3283 
204 
240 

:3F 

240 
:FDO& 


PSW 


H 
D 
E 


Brom 


‘READ HEAP 


LOADV 


FILENAME POINTED BY HL 


FILE TYFE 
FILE NAME PRINTED 
READ FILE NAME 





RUN L.E. WITHOUT NEW 
READ SYMBOL TABLE 


RUN LOADING ERROR 
END OF S. TABLE UPDATED 
RCLOSE 


SAVEV 








FILE TYPE 
FILE NAME POINTED BY HL 








SAVE FILE NAME 
SAVE HEAF 
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— 
PAGE 02 
054 0366 ER XCHG 
055 0367 2A9B02 LHLD :29R 
036 036A CDC802 CALL :2C8 
057 O36D 258302 LHLD :2A3 SAVE SYMBOL TABLE 
038 0370 ER XCHG 
059 0371 280102 LHLD 2241 
060 0374 7B MOV AE 
061 0375 9D SER L 
062 0376 SF MOV E,A 
063 0377 7A MOV A,D 
064 0378 94 SUR H 
065 0379 57 MOV D,A 
665 0376 CDCBO2 CALL :2C8 
067 037D CDCBO2 CALL  :2CR WCLOSE 
068 0380 3A4000 LDA  :40 
069 0383 E6IF ANI 23F 
070 0385 324000 STA :40 
071 0388 3206FD STA :FDO6 
072 OZBE FR EI 
073 O38C Fi POP PSW 
074 O38D E1 POF H 
075 OZBE Di POP D 
076 O38F C1 POP R 
077 0390 C9 RET 
078 0391 END 







iiriiirifiitifiii1tfifirririii 
SYMBOL TABLES 
irifiritiiiLiidiiif9fidiiakiiii 






DLECT 0310 
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mii 








Borom 


58616 
seoze 
soore 
Besse 
Seeso 
mooeo 
setes 
solia 
Size 
S213@ 
Seise 
5614 
52159 
setes 
52176 
S@ise 
Seres 
sozie 
serze 
so235e 
sezae 
Baza 
592249 
soros 
sase 
sesze 
5esse 
exeo 
50370 
56299 
seste 
noazo 
s0439 
5244 
5045 
S046S 
5947 
sosea 
save 
Sears 


SCREEN TABULATOR & EPSON 80/2 III, replaces print tab(); 


REM E. ZAHNER, CH 8710 AFFOLTERN MARCH 25,1983 
REM PERMITS SCREEN TABLE WITH REGSSZC OFF 

REM PRINTER COMMANDS: 

REM CHRS (27) 5D" g CHR (FIRST) s CHRS (SECOND) p.. CHRIS) TO CONCLUDE 
REM CHRIS) TO MOVE PRINT HEAD TO NEXT TAB POSITION 

REM 

CLEAR 1008 

POKE 4151,1:PCRINT CHRe (iz) 5 

V2Z4=EUF FOS! BAUDORACO 3 BAUD SPIO: REM REZERG V24 SERIAL OUTPUT 9408 2409 BAUD 
WRITERS 1 X 1 a SWON=®. 9: SROFF=1.2 : REM PRINTER ON, OFF 

REM PRI= PREVIOUS STATUS WRITER 

REM VARIABLES 

REM TABUZX NBR DF Tess. TABULAZ(..) TAB SETTINGS 

REM CX ÊY LAST CURSOR POSITION 

REM TABULAS = TAB INSTRUCTION TO PRINTER (EPSON III) 

REM WO = NEW TAB FOSITION. 

GOTO 5exoo 

REM SUBROUTINES 

PRISPEEK (WRITER) sPOKE WRITER, GWOPF a OX @CURX a CY CURRY 

INPUT "<RETURN> "ERETUS: PRINT s POLE WRITER, PRIS RETURN 

REM WIPE SCREEN, NO FORM FEED 

PRI=PEEK (WRITER) : POKE WRITER, SWOFF s INPUT "ZRETURN WHEN OK "FETU 
PRINT CHRS (12) p a CXmCURX e CYMOURYE POLE WRITER, PRI 8 RETURN 

TABU BE "a TABULAGm n, REM TAB POSITION EXAMPLE 

DATA 5,15, 25, 58, 45, 55 

TABUZ4=&8:DIM TABULAACTABULALEFOR IX=1 TO TABULA 

READ TABULA (IX) a TABUS=TABUB+CHRE (TABULAX IK) > 

NEXT IX TABULASG=CHRE C27) D"+TABUG+OHRE (o>) 

PRINT -TABULAS P 

POKE V24, BAUD1: POKE WRITER, SWON 

PRINT Tabula 

PRINT "Q'ga FOR IX-i TO TABUZT*Ys PRINT CHF (o> p eg 

NEXT TA PRINT 

FOR IXmi TO TABUZWXsPRINT CHRO CD) EIKEN 

NEXT IMPRINT 

FOR IXe—i TO TABUZAR (1) STEP ~ia PRINT CHER CD) PIXI 

NEXT Les PRINT 

FOR Xi TO TABUZASPRINT CHR® (P) r TABULAK C EZ) 3 

NEXT IXePRINT ıPOKE WRITER, SWOFF 

LIST 503995: REM NOTE: THE TAB POB. iS IN FRONT OF THE FIRST CHARACTER ON 





THE PRINTER 


sosaa 
5osie 
sosze 
sossa 
gongo 
sons 
sonen 
seszoe 
sesae 
89708 
sorio 
59728 
89730 
Sorsa 
so734 
59734 
5o74 
sezse 
sosea 
sesos 
sesio 
seazo 
Sease 
Seas 
moase 
sosea 
5o87 
eee 
sere 
59910 
5992 
Sooso 
56940 
Soro 
Sorsa 
soo7e 
sea 
509790 


LIST Sogo: REM NOW A TABLE SHALL BE SHOWN ON THE SCREEN 

GOTO 5ezoo 

REM SUBROUTINES FOR SCREENTABLE 

CXaCURX a CYmCURYV a REM RETURN: REM STORES OLD CURSOR POSITION 
WO*TABULAY. (IK) y REM BETS NEXT TAB POSITION INTO wo 

IF WO<OX THEN WOeCKs REM RETURN: REM OLO<NEW 

PRINT CHR (P) doo PRImPEER (WRITER) $ 

POKE WRITER, SWOF F a PRINT SPC (WO-CX) B z POLE WRITER, PRI 

RETURN: REM IF S9530/5580 RETURNS ARE USED, SONGO COMES TWICE ap 
POKE WRITER, SWON 
PRINT TABULAS 
TABUZ Xa 

FOR I%=1 TO TABU 
SOBUS Sesse 

REM BOBUB sosse 
REM GOSUB SOSSE REM NOTE SOIM 

PRINT GHR@e CLES) Da NEXT IA PRINT 

POKE WRITER, SWOFF 

LIST SOBOR REM INPUT TAB POSITIONS 

PRINT "NER", "POE", "AVOID iz ar 12" 

INPUT “NUMBER OF TAB-STOPS “4 TABUZ 41 PRINT 

DIM TABULAK <TABUZ%) n TABU "s TABULA Geet H y THe, o 

FOR IX-e91 TO TABUZA PRINT 1%, 

INPUT TABULAX IX) z PRINT 

ZF TABULAXILIHICT THEN "oaa 

Te9TAGBUÜULAXCIX)--1.0 IF T«S.Q9 THEN Tes. © 
TABUS=TABUS+CHRE CT--X a NEXT XX à PRINT 
TOBUL.ABaEHRS C27) +" D"+TABLIM+CHR® O) 

REM 

SUSUB Sez4e. REM WIFE 

PRINT "NOW INPUT A STRING SUITABLE FOR THE COLUMN WIDTH" 
POKE WRITER, BWON: PRINT TABULA: STRING Ga! 1 





FOR TO TABUZ%1 GORUB BOSSO PRINT CHRO] (124) Aa NEXT KA PRINT 
FOR TO TABUZ%«1GOSUB J155. PRINT STRINGA e NEXT Léo PRINT 
FOR TO TABUZ XI GOBUB SOLO PRINT IX ~A. 0) ga NEXT IKa PRINT 
FOR ra GOSUD SOSSO: PRINT IX: NEXT IX: PRINT 





FOR TO TABUZXiDOGBUE BOSS s Lol He PRINT XE a NEXT PRINT 
REM GOTO 509740 


51009 RE GOSUB SOPRA REM WIPE 


5161 
siere 
sıosa 
mioao 
(174588 
5195 
Sie7e 
Siege 
108% 
Sieso 
5119 
aao 
S1129 
Sises 
sitse 
sisse 
51542 
51589 
sise 
31570 
531509 
51839 
3176@ 
51710 
31754 
3176 
81770 
S178e 
51799 
5183890 
Sieze 
5319709 
5191 
S1920 
31925 
51939 
51949 
Siero 
31980 
Sive 
Sieos 


POKE WRITER, SWOFF 
DATA 19, 20, 30,40 

TABUZAmA s TAÀBUSm" " s TABULAB=" a DIM TABULAR (TABULA) 

PRINT "NEW TAB SETTING“ FOR IZe2 TO TABUZZI READ TABULOX CI) i PRINT TABULA 
NEXT PRINT 

FOR Irel TO TABUZ Ks TABUS=TABUS+CHRE C TABULAA CE 
TABULABSCHRE (27) +" D"+ TABUS+CHRE (O) 

PRINT "NOW INPUT A INTEGER NUMBER 1 TO % DIGITS" 

POKE WRITER, SWON: PRINT TABULAS 

FOR J= TO 20 FOR IZ=1 TO TABUZZIGOSUS 51900mREM INPUT 
PRINT CHRS (124) a SPC (LEER? s NBRP «NEXT. IMPRINT CHARS (124. ©) 
NEXT JA 

POKE WRITER, BWOFE : GORUA MORAR POKE VRA, BAUDO I END 

REM SUBROUTINE STRING INPUT 

CX#CURK: CY"GURYs PRI PEEK (WRITER) z POKE WRITER, SWORE 
CURSOR ©, is PRINT GPC (Se) sa CURSOR 25,1 

INPUT "STRING "STRINGS 

WOsTABULAZ CTX) s IF WOEEX THEN WO=CXx 

CURSOR CX, CV POKE WRITER, PRI 

PRINT CHRS (9) Sor POKE WRITER, SWOFF 

PRINT SPO(WO-Cx) # a POKE WRITER, PRI 

RETURN 

REM FORMATTING 

NBR Xe INT (NBR) 

Le=7.6 

IF NBRA<IES AND NER“Z>(~1ES) THEN LEmé. © 

IF NBRA<100@60.0 AND NMBRAX;(C-10000.0) THEN LE=5,9 

IF NBAAC1000,9 AND NBRX4X-C€-1000.92) THEN LEe4.9 

IF NMBRXc-1990.0 AND NBRA> (106.0) THEN LES, © 

IF NDBRZ«190.0 AND NBRA>(-10.@) THEM LEw2.0 

RETURN 

CX=CURX s CY c CURY s PRI=PEEK (WRITER) z POKE WRITER, BWORF 
CURSOR O,1sPRINT SPCIOSE)R:CURBOR 26, 1 

INPUT "INTEGER "sNMER:OGOSUE 51700 

IF I*XeTABUZX THEN COLWIDe12. 0: GOTO BIPA REM LAST COLUMN =12 
COLUWIDeTABULAmCIX-1.0)- TABAK (IX) e REM COLUMNWIDTH 
LEER@COLWID-LE-2.90REM i-CHR9OS4) & 1 SPACE 

POKE WRITER, FRESCURBOR Ox, CY 

PRINT CHRS (9) 5 

RETURN 

REM END OF PROGRAM 








END PROGRAM 
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LES COUPS D'ŒIL DE LIST 








UN ASSEMBLEUR 
POUR LE DAI PC 


E logiciel SPL, comme disent les initiés, est un 
des cing éditeurs-assembleurs de langage- 
machine qui « tournent » sur le DAI PC, Sans doute 
est-il le plus puissant, car il se veut très proche de 
MACRO 80, un assembleur tout à fait 


professionnel, 


E SPL est livré sous forme de cas- 
sette audio (ou micro-cassette 
numérique) avec plusieurs utilitaires, 
dont DISPLAY, un trés puissant désas- 
sembleur et TRANSLATOR, qui per- 
met de récupérer des sources écrites avec 
les autres assembleurs. Voilà qui est bien 
pratique. La notice, en français, est lon- 
gue de 34 pages ; c'est dire que les com- 
mandes sont nombreuses et qu'il con- 
vient de lire et relire le texte avant de 
prétendre maîtriser ce logiciel. Cela 
étant, SPL offre une grande souplesse 
d'emploi. 





D'abord, sa facon de compacter le 
fichier-source autorise la compilation de 
Programmes très longs, avantage déci- 
sif pour toute application « sérieuse » : 
on peut assembler en une seule fois 
jusqu'à 12 Koctets de codes-machine ! 
Ensuite, l'écriture de la source sous édi- 
teur plein écran (avec tabulation auto- 
matique pour chacune des zones labels, 
opérandes, etc.) simplifie grandement le 
travail : il est possible de déplacer le 


23 APL 





texte-source dans toutes les directions, 
de se positionner n'importe où pour 
corriger. 


JUSTE ONE 
MISE Av Point í 


Le premier déverminage (ou débo- 
gage) se fait en sortie d’édition : en cas 
d'erreur de syntaxe, SPL réédite la 
source à partir de la ligne fautive, et le 
curseur est remplacé par une lettre cli- 
gnotante mnémonique du type d'erreur 
détecté. Ce systéme fait gagner beau- 
coup de temps lors de l'écriture d'un 
programme. Les possibilités de travail 
sont trés grandes, et il est hors de ques- 
tion, en quelques lignes, de les passer 
toutes en revue. Les grands « classi- 
ques » sont là, avec souvent un 
« plus » : copie ou déplacement de 
paragraphes, recherche ou remplace- 
ment d'étiquettes, paramétrage de la 
liste (nombre de lignes par page; affi- 


N° 5 - DÉCEMBRE 84 





chage en décimal, hexadécimal, octal, 
binaire, au choix, des adresses et/ou des 
opérandes). J'ai beaucoup apprécié la 
possibilité de demander un segment de 
liste ou d'édition par numéro de ligne 
ou par étiquette. Ainsi, la commande L 
10 FIN déclenche-t-elle la liste de la 
source de la ligne 10 jusqu'à l'endroit 
où se trouve l'étiquette FIN. L'incon- 
vénient d'une telle richesse est l'abon- 
dance des commandes : il vaut mieux 
garder le manuel prés de soi pour s'y 
retrouver, du moins au début ! 


La liste 1 montre un exemple de 
source SPL, utilisant l'assemblage con- 
ditionnel, la gestion dynamique d'éti- 
quettes, les macro-instructions, avec ou 
sans passage de paramètres. Ce pro- 
gramme est destiné à mesurer le temps 
que le Dai met à parcourir 255 instruc- 
tions NOP (1). Les lignes 21 à 25 mon- 
irent comment expanser 255 instruc- 


tions en peu de place : c'est l'assembleur .- 


Liste 1 : programme-source 


obtenu avec SPL 

3 ; 

2 PRT 1EH, 45H 
3 š 

4 TITL ESSAI SFL 
5 š 

& PUT "Hh 

7 ORG Ia 

8 TEMPS Dw GFFFFH 
9 VERS SET in 

18 IF VERS=1H 
11 ORG 409i 

12 ELSE 

13 ORG SOSH 

14 ENDIF 

15 i 

16 TIMER EBU iBEH 

17 RESULT  EQU Isa 

18 š 

19 push 

28 time 

21 COMPT SET @FFH 

22 ioop Hs 

23 NOP 

24 COMPT SET COMPT-iH 
25 loop COMFT >@H 
27 store RESULT 
2: pop 

29 RET 

3a FIN END 

zi ; 

32 szone des macro-instructions 
33 š 

34 push MACRO 

35 PUSH B 

36 MEND 

37 time MACRO 

38 LHLD TEMPS 
39 SHL D TIMER 
48 MEND 

4i store MACRO RE 

42 LHLD TIMER 
43 SHLD RE 

44 MEND 

45 pop MACRO 

46 POP B 

47 MEND 

48 š 
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qui fait la boucle en gérant dynamique- 
ment l'étiquette COMPT. 


Le début de liste (lignes 9 à 14) est un 
exemple d'assemblage conditionnel, 
utile pour faire plusieurs versions d'une 
méme source. Ici, l'étiquette VERS (ver- 
sion) vaut 1, le début du code-machine 
sera compilé à partir de 400 (hex), 
sinon, à partir de 500 (hex). Ceci peut 
être encore affiné, car SPL permet les 
tests booléens sur les étiquettes, du 
genre IF VERS =1 AND LABEL =2 
OR VERS < > 5, etc. Les macro- 
instructions peuvent aussi passer des 
paramétres (exemple: store passe 
l'adresse RESULT dans l'étiquette RE 
lors de l'expansion de la macro). La 
ligne 2 montre comment donner des 













ILA BA | e 
p RECORD Vive (e j 
ep A 
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directives ımpr imante 


saffıchage nexageca mai 


janitialisation 
iversion 1 


pherlege du DAE 
stampon du resultat 


sappel de macro 


directives à l'imprimante, lors du listage 
de la source. Ici, on commande le pas- 
sage en écriture grasse sur une Epson. 





L’utilitaire DISPLAY, livré avec 
SPL, ajoute des fonctions à l'assem- 
bleur : il permet d'obtenir la liste hex et 
ASCII d'une zone mémoire. Il désas- 
semble aussi un code-machine en 
recréant une source utilisable par SPL, 
avec des étiquettes, s'il vous plait ! Sur 
la liste 2, on voit comment apparait le 
désassemblage de la routine « sortie 
série » du Dai, Remarquez les étiquet- 
tes placées aux points de branchement 
de la routine. DISPLAY peut désassem- 
bler SPL lui-même (12 Ko de codes- 
machines !) et le tout (code et source) 
tient encore en mémoire vive. Enfin, 





(1) Si vous désirez savoir combien de temps le Dai 
met à parcourir 255 NOP, faites, sous Basic : 
PRINT (#FFFF - PEEK (4300) - (PEEK (4301) 
*256)) #20 ; “millisecondes’’, 

En fait, ce n'est qu'à partir de plusieurs mil- 
liers de NOP que la décrémentation devient visible. 












Liste 2 : exemple de desassemblage 

slabel gere dynamiquement 2 r; 

îpt d entree de l' expansion d'une routine 

şdecriaent du label van š 

sboucie tant que label: vaza ; 

7 voog PRT LEN, 45H 

macro avec parametre eon 3 

i gvon ORG @DD94H 
DD94 F5 LHDD94 PUSH PSW 
DD9S ZAØBFD LHDD95 LDA LHFDB@ 
DD98 E608 ANT 8H 
DD9A  CA9SDD Jz LHDD95 
DD9D SAFSFF LHDD9D LDA LHEFFS 
DDAD E610 ANI 18H 
DDA2 CA9DbD Jz LHDD9D 
DDAS Fi POP PSW 
DDA& 32F6FF STA LHFFF6 
DDA? FEØD CPI @DH 
DDAB CQ RNZ 
DDAC FS PUSH PSW 

passage du paraeetre DDAD ZEZA mia BAH 

š DDAF  CD94DD CALL LHDD94 
DDB2 F1 FOP PSH 
DDB3 C9 RET 
DDE4  a-FDUO LHFDGB ERU üFDAOH 
DDB4 FF3 LHFFF3 EQU BFFFSH 
DDB4 a=FEF6 LHFFF6 EBU OFFFGH 
DDB4 END 


#SPL# 


LIST - PAGE 4i 
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à SPL, un check sum de la source, du 
code et de SPL lui-même vérifie l'inté- 
grité de ce qui est en mémoire (vous 
Savez : un programme « pas tout à fait 
au point » et que l'on essaie, peut 
que || occasionner des ravages sournois n. 
Forme : cassette à Voilà donc un assembleur trés réussi 
Edité et distribué par? { et puissant qui ne dépayserait pas un uti- 
11 Herselt Belgique 9, rue Lavoisier 591401 lisateur venant de machines n'ayant rien 
ou: Dainamic France - ^ à voir avec un micro-ordinateur. Asso- 
Dunkerque cié à DDT (DAInamic debugging tool, 
Prix public : 1 100 F belges (^ un excellent utilitaire de mise au point), 
T Orientation principale : SPL se devrait de figurer dans la pano- 
ou telle anomalie : fautes de syntaxe, ngage-machine nslateur de | Plie de tout Daiste féru de langage- 
fautes de structure (lors de la compila- tres orientations : desassembleur, trai machine. 
tion), fautes d'introduction (commande un dump-mémoire i 
erronée), etc. De plus, à chaque retour 

















Putilitaire IMPLEM permet de paramé- £j ps 
trer SPL, si les options par défaut ne Le logiciel en q 
vous conviennent pas, et ce, sans 
POKEs fastidieux, Nom : Assembleur 8080 ; T (version 
La fonction LINK (« accrochage », ; Dai PC et Dai i 
lors de la compilation, de sous-routines ñ! j 
en bibliothèque) est absente de SPL. 
Elle est remplacée par un MERGE 
(commande Y) qui inclut dans la source 
de travail des segments provenant de la 
mémoire de masse. 


L'interactivité de SPL se traduit en 
(nombreux !) messages signalant telle 


uelques lignes 


udio ou cassette numeri : 
 Dainamic Mottaart - 2 


js, environ) 
belges (165 F francais, en" 
Lr assemblage de 
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‚aut problems. As soon as the ar 
show up. À 4 
too N 


Cr to Ni, 








13), we 
a big mess 
declared an 
` the same 





th 
high 





order 


„i enables the dimensioning of an array with the 
c. So programs developped on a Vi.1 machine may 
4 


The Basic version V 
Maximum subscript 
cause problems on a V1.0 machine 
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KEN-DOS system NEW PRICES... 


Door samenaankoop van grotere hoeveelheden kunnen wij nu 
het KEN-DOS systeem aanbieden aan uiterst gunstige prijzen : 


Vb. : 


1 x 800 K 
2 x 800 K 


51900 Bfr (BTW incl.) 
65900 Bfr (BTW incl.) 


KEN-DOS systeem wordt nu geleverd in fraaie PVC-behuizing, 
met enkele of dubbele (dubbelzijdige) slimline drives (CANON). 
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MicrO 
PROGRAMMES 








l'armure précédente par retrait ou 
ajout soit de fils, soit de duites, tou- 
jours en saisie graphique, les fils de 
chaine apparaissant en bleu foncé sur 
le rectangle bleu ciel aux dimensions 
de l'armure. Les laissés restent bleu 
clair. 






SSUS ARMURES 


L'ordinateur tisserand 








* A l'appel de la fonction 3 d'analy- 
se/édition, l'ordinateur effectue 
l'analyse de l'armure et édite à 
l'écran, ou sur imprimante au choix, 
les données suivantes : nombre de 
fils, nombre de duites, nombres de 
cadres nécessaires au tissage, lon- 
gueur des flottés maximum en chaine 
et en trame, l'enfilage, la marchure et 
enfin l'armure. 











Rémi Prin élabore une nouvelle armure 
au clavier de son Dai. p 





"a 5. VEGA 


A Edition à l'imprimante des différentes 
caractéristiques d'une armure créée à 
l'écran. 








TISSU ESSAI Z 
DRES: 9 e La fonction 4 donne l'aspect du 
5 UITES: 14 CA ° , tissu. Elle offre trois possibilités de 
EN uM nes 3 Flotte max CH.: 3 résolution graphique, G pour 72 x 65 


ILAGE points, M pour 160 x 130 points et F 

ENE pour 336x256 points. Second 
219 choix : les couleurs (4 parmi 16 dis- 
1234867876543? ponibles). Troisiéme choix : la hau- 


z 
" LU teur du dessin écran. Quelques répé- 
















Tissé à parcir d'une armure créée à l'aide d'un des programmes informatiques, un échantillon où apparaît le jeu des fils pris m H i titions de motifs étant suffisantes au 
et laissés. a Mu début de l'élaboration d'un tissu, on 
ire td. . Ls NDA . im Lu peut l'afficher sur plein, moitié, quart 

L 9 tissu imprimé, plus facile et — ensuite utiliser pour leur fabrication. Sur cassette. L'unité centrale est mi Le d'écran..., etc. On peut aussi afficher 
moins cher à réaliser, a sup- Deux sortes de programmes ont ainsi reliée à un écran TV couleur équipé une armure équilibrée (50/50) ou à 


planté de nos jours le tissu armuré qui 
tire son relief du mode d'entrecroise- 
ment des fils. Celui-ci revient à la 
mode dans les haut de gamme des 
textiles d'ameublement. 

La maniére d'entrelacer fils de chaine 
et fils de trame procéde d'une cer- 
taine répétition. C'est ce qui a amené 
Rémi Prin, créateur textile et ingé- 
nieur informaticien, à créer des pro- 
grammes de constitution d'armures. 
À partir des résultats obtenus, Moni- 
que Prin et Rémi tissent des échantil- 
lons que des industriels textiles vont 
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été mis au point : l'un part d'un motif 
de base et lui fait subir toute sortes de 
déformations, c'est donc un pro- 
gramme analytique de traitement de 
texture. L'autre joue avec les paramè- 
tres constituant l'armure, Pour com- 
prendre les manipulations réalisées, il 
faut connaitre les opérations essen- 
tielles de tissage (voir encadré). 

Rémi Prin travaille sur un micro- 
ordinateur type DA/ de 48 K caractè- 
res de mémoire pour l'utilisateur. Les 
programmes sont écrits en langage 
de programmation appelé BASIC VI, 


d'un cáble de péritélévision. La partie 
édition de chaque programme est 
écrite pour adaptation à une impri- 
mante graphique (de type AX/OM 
IMP 2-Q). 

Appelé “Textile 3A", ce programme 
part donc du motif de base et com- 
porte huit fonctions : 

* Aprés appel de la fonction 1 
“Entrée armure de base”, l'opérateur 
définit les dimensions de l'armure 
(nombre de fils (1) et de duites) qui 
est saisie graphiquement. 

° La fonction 2 permet de modifier 
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chaîne élargie (ch. 100/tr. 50) ou 
trame élargie (ch. 5O/tr. 100). 


e La fonction 5 de “traitement de 
larmure'' offre des possibilités inté- 
ressantes de traitement du motif ou 
d'agrandissement du motif de base. 
Quatre zones de travail sont définies 
avec, pour chacune, onze traitements 
possibles dont des rotations de 90, 
180 ou 270°, des symétries vertica- 
les ou horizontales, des décalages 
dans les quatre directions ou une 
inversion des pris et des laissés. 

On peut revenir au début de cette 
fonction cinq, plusieurs fois de Suite, 
ce qui multiplie la capacité de traiter 
des armures plus complexes. 


MICRO-ORDINATEURS -N° 9 - FÉVRIER 1983 





419 DAlnamic 84 - 25 *TISSUS ARMURES# 


*TISSUS ARMURES# DAlnamic 84 — 25 411 





* En appelant la fonction 6 "Rappel 
armure de base”, la machine stocke 
deux armures en méme temps sur la 
cassette digitale rapide (la dernière 
effectuée, plus l'armure de base). 


* La fonction 7 permet d'agrandir la 
longueur d'une armure sans augmen- 
ter le nombre de lames nécessaires 
au tissage. 






La chaine est le sens de la lon- 
gueur du fil, Ce sont les fils de 
chaine qui sont tendus entre les 
deux extrémités (ensouples) du 
métier à tisser. lls passent, au 
milieu, par une série de cadres 
paralléles. Sur chaque cadre sont 
fixés des fils métalliques avec un 
œillet central où passe un fil de 
chaine. Certains fils passent par 
les œillets du cadre n? 1, 
d'autres par le n? 2, etc. Un 
métier à tisser à main peut pos- 
séder jusqu'à 24 cadrans. Si on 
lève par exemple les cadres n? 1 
et 5, la nappe de fils de chaine se 
Sépare en deux sous-nappes. 
Celle du dessus est constituée de 
tous les fils de chaine soulevés, 
celle du dessous de tous les 
autres fils. La 1r opération de 
tissage consiste à passer entre 
ces deux nappes, une cannette, 


* La fonction 8 est d'anayse-édition. 
Elle sort sur imprimante l'armure réali- 
Sée (voir schéma). 


CRÉATION 
SYNTHÉTIQUE 


Le programme “TEXTILE 4°, lui, est 
orienté vers la création synthétique, à 
partir des données de l'enfilage et de 
la marchure. Il possède six fonctions. 
La fonction 1 de “création/modifica- 
tion texture qui comporte sept sous- 
menus, pose d'abord à l'utilisateur 
des questions de définition de 
l'armure. Combien de cadres ? (maxi- 
mum 24). Combien de fils ? (maxi- 
mum 255). On obtient dans un pre- 
mier temps l'affichage de l'enfilage et 
le pavé rectangulaire Correspondant à 
la dimension choisie. Puis, combien 
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de duites (maximum 255) du motif 
de base qui va se répéter ? Aprés 
chaque passage en mode graphique, 
il est possible de modifier manuelle- 
ment par insertion, suppression ou 
ajout de fils ou de duites (les touches 
M et D permettent de monter ou des- 
cendre directement en diagonale). 

La sous-fonction 5 au lieu de faire 
subir un traitement à l'armure, 


LES TISSUS ARMURES 


ou navette, où est enroulé le fil 
de trame. Ce coup de tissage 
(qui constitue la largeur du tissu) 
s'appelle une duite. On tasse ce 
fil de trame avec un peigne. Au 
Second passage, on abaisse et 
on léve d'autres cadres au choix. 
Les fils de chaine levés sont con- 
Sidérés comme pris. Les fils de 
chaine de la nappe inférieure 
sont les “laissés”. 


On voit qu'on peut agir : sur le 
nombre de cadres (encore appe- 
lés lames], sur la maniére d'enfi- 
ler les fils dans les cadres et enfin 
sur l'ordre successif des levers 
de cadres. 


Si on a un fil pris, cinq laissés, un 
pris, cinq laissés, les 5 pris cons- 
tituent un flotté, soit la longueur 
du fil de trame qui passe au- 
dessus d'un nombre donné de 


comme dans le programme de TEX- 
TILE 3, va agir sur le programme de 
tissage. Deux possibilités : traiter le 
tissu par groupes de fils ou par zones 
(cinq sont prévues). L'un des intéréts 
de TEXTILE 4 est de pouvoir conser- 
ver l'enfilage fixe si on le désire (tou- 
jours trés long à réaliser sur les 
métiers à tisser) et de modifier la mar- 
chure. 

Puis on revient à la fonction 5 qui per- 
met le chargement de la texture. Une 
référence est attribuée au tissu. Il ya 
donc possibilités de constituer une 
bibliothéque d'armures. Pour chaque 
armure, la capacité mémoire néces- 
saire pour le Stockage est donnée par 
le produit du nombre de fils par le 
nombre de duites, qui ne peut pas 
dépasser 12 000. Pour accroître la 
rapidité de l'affichage graphique en 
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haute résolution, certaines routines 
ont été réalisées en langage “bas 
niveau” dit assembleur. 

Rémi Prin devrait élaborer une version 
encore plus perfectionnée qui fusion- 
nera ces deux sortes de programmes, 
mais elle nécessitera de posséder un 
double lecteur de disquettes pour 
augmenter les capacités mémoires 
insuffisantes sur cassette. 





fils de chaine (ici 5). (Certains 
flottés peuvent se retrouver sur 
l'envers ou étre des flottés de 
chaine.) 





Suivant la répartition des pris et 
des laissés et compte tenu d'un 
enfilage donné, on va obtenir 
une armure bien définie, l'armure 
étant la représentation de l'entre- 
lacement des fils, Cette suite de 
combinaisons {où si l'on veut la 
marche à suivre) constitue la 
marchure, et chacune de ces 
combinaisons, une marche. Cha- 
que marche énuivaut aussi à une 
pédale, qui dans les métiers plus 
perfectionnés va actionner la 
levée et la baisse d'un certain 
nombre de cadres auxquels elle 
est fixée par des attaches. Le 
bref représente le motif de 
l'armure. 














UN DÉLAI 
DE RÉALISATION 
RAMENÉ DE 5 A 1 


Autre programme assez spectacu- 
laire : un parcours circulaire utilise un 
algorithme de centrage qui va se 
Structurer peu à peu. Par exemple, un 
point sur dix est fixé à chaque pas- 
sage jusqu'à ce que l'algorithme soit 
complètement figé. Pour que l'œil 
discerne cet ordonnancement, il faut 
une rigueur mathématique stricte. 

"En utilisant l'ordinateur, explique 
Rémi Prin, le créateur de tissus est 
moins prisonnier du schéma classi- 
que des armures. Et la vitesse d'exé- 
cution est appréciable. '' Un bon tech- 
nicien peut arriver au méme résultat 





































MICRO 
PROGRAMMES 


mais ses crayonnés lui prennent un 
temps fou. C'est ainsi qu'un autre 
programme "''écossais-rayures'' 
réduit le délai de réalisation"dans la 
proportion de 5 à 1. "Cependant, 
reconnaît-il, l'informatique n'est pas 
tout : on réalise aussi un travail plasti- 
que indépendant de l'utilisation du 
micro-ordinateur. Il y a toute une 
recherche de matiére due à la densité 
des fils qui décale l'aspect visuel du 
tissu.” 


DU TEXTILE 
A LA CRÉATION 
ARTISTIQUE 


Le grand danger, selon lui, serait 
qu'industriels et créateurs textiles 
récupèrent l'outil informatique dans 
l'état actuel sans essayer d'en déve- 
lopper les potentialités. Avec des 
movens appropriés, il serait possible 
d'effectuer des recherches approton- 
dies sur le langage textile, en remet- 
tant en cause les classifications tradi- 
tionnelles des armures trés rigoureu- 
Ses. Lorsqu'il s'agissait, autrefois, de 
tisser des étoffes d'armures compii- 
quées, il fallait bien connaitre les 
modes d'enfilage et de flottement 
précis pour que le tissu tienne bien. 
De trop grands flottés, ou des irrégu- 
larités importantes dans la répartition 
des points d'aiguillage (l'endroit où 
les fils se croisent) peuvent faire que 
le tissu poche ou soit peu solide. Et 
cela, l'ordinateur ne le dit pas. Tout 
âu moins pas encore, car il serait pos- 
Sible de réaliser des programmes sur 
la densité à respecter. Sur les exten- 
Sions envisageables de l'utilisation du 
Micro, Rémi Prin est intarissable : 
"L'idéal serait d'effectuer des recher- 
ches approfondies au niveau de la 
combinatoire, de l'armure et du lan- 
gage textile. Remettre en cause les 
classifications, ce qui implique une 
recherche informatique sur les 
réseaux des pris et des laissés. Un 
livre édité en 1938 à Lyon écrit par 
Brandon et Guillet traite de “La 
méthode des initiales”. C'est l'appro- 
Che du tissage à lames à l'aide d'un 
formalisme mathématique. Il permet 
de relier une forme continue d'une 
Courbe que l'on désire obtenir dans le 
tissu et le caractère discontinu du tis- 
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sage ; des contours analytiques à des 
réseaux de tissage. Peu de gens maf- 
trisent encore bien cette méthode. If y 
aurait là des travaux informatiques 
approfondis à envisager.” 

Rémi Prin rêve de recherches pluridis- 
Ciplinaires dont le textile serait le 
nœud. If a animé, en mars 1982, un 
stage de “Micro-informatique en 
création textile" au Centre Art et 
Industrie de Tourcoing. Un second 
est prévu à Chambéry en avril 1983 
auprés d'un groupe de créateurs tex- 
tiles de Savoie et d'Isère. Une 
semaine, sur les deux que dure le 
stage, sera réservée à un travail plas- 
tique autour de la technique de l'ikate 
(2) pour laqueile Rémi Prin a égale- 
ment créé un autre type de pro- 
gramme. 

Préoccupations identiques pour une 
démonstration réalisée par Philippe 
Dujardin et Rémi Prin lors des trois 
journées ‘‘Micro-informatique et 
création textile", qui ont eu lieu aux 
Filteries DMC les 12, 13 et 14 janvier 
dernier. Organisées par la filothéque 
DMC et l'association Textile / Art / 
Langage, ces rencontres de créateurs 
et d'industriels ont permis d'envisa- 
ger les développements possibles de 
ces recherches. 
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Dans l'industrie, il existe bien quel- 
ques systëmes informatiques, mais 
trop lourds et donc incomplëtement 
exploités, ou qui sont utilisés pour 
déchiffrer des motifs existants et les 
reproduire. En somme un travail de 
compilation et non de création, C'est 
pourquoi, en France, n'existe-t-il qua- 
siment pas de programme exploitable 
par les tisserands-artisans eux- 
mêmes. Rémi Prin a voulu combler ce 
manque avec ses différents program- 
mes qu'il continue d'améliorer et qui 
coûtent 1 200 F chacun. 
Quant à l'enseignement de l'utilisa- 
tion du micro, il est dommage que 
seuls des rares Stages ponctuels 
Soient mis sur pied à l'heure actuelle. 
L'outil informatique au service du tex- 
tile pourrait d'abord étre utilisé avec 
profit dans les écoles d'arts appliqués 
en section textile. 

Micheline DOMANCICH 
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(1) Fils : il s'agit des fils de chaine quand 
ce n'est pas précisé. 

(2) Ikate : les fils sont teints avant tissage. 
Sur chaque fil, it existe une fragmentation 
des couleurs par réserve. Le programme 
permet d'élaborer des contours des zones 
à colorier à partir de ces contours et de les 
mélanger. 
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Pr ET a EEE IT 


D rue du Parc 92190 MEUDON 











protéger un programme 
mme du BREAK, 
cassette 


"AMME, omn lui 
la clé. 





ques de la fone: 








i XOR 2 
1 KOR h 
te deux 

amme eet donc 






trouver lue 
programme imitia à 1 F E lui r ire passer l'encodage 

la «lé, emer dii lé deux fois laisse 
le programme intac t. 





à suivre pour coder: 





QD pom 
„UT puis R (pour charger l'utilitaire de codage 
0G BOO (pour le 






` LA CLE, pu SRE TURN > 
VE pom basic cme 
C'est tout | Essayer donc de lister ensuite, pour voir ! 










den" un preogra 
la méme. 












Four deee la mar à suivre est 


inutile de refaire le 





acher gue 
& oou 
il existe 


tenterait 








BO4E ze 

BO4E P*——-—— messages ————— 

BO4E pd 

BØJE SC MESSE DE SCH ;;nbr caracteres 
BA4F ACAD DE BCH, ADH 

Bei 202059 DE ‘Four coder ou decoder 
Biot 606328 DE “le programme en memoire,‘ 
EBAL Aap DE DH 

B82 202065 DB ^ entrez la cle’ 

BUS 206455 DE ` de decryptages:^ 

BOne aD DB SDH 

BRAL 222070 DE i 

BGRE END END 





#TOP SECRETE 





3542 
aaa 
anan 
Bona 
eonun 
mood 
ago 
Baoan 
Beas 
saga 
Bana 
Baza 
BOSS 
BRS 
BABS 
BAGS 
BBS 
BaGS 
Baa? 
EGT 
Saar 
Bülü 
Baii 
Baia 
Baa 
BOL? 
6915 
BOIB 
BeIC 
BOIE 
B021 
BO21 
B@2i 
BOS) 
Bü24 
8425 
Baza 
Ha28 
Baza 
5928 
BOZE 
BOSC 
B@2D 
BOZE 
BB2F 
Hz 
BOSS 

Bax 
asa 
BOSE 
BOSC 
BREF 
BF 
BOSF 
BOEF 
5842 
Bü44 
BH44 
Baa? 
Baa 
Büo4R 


ZI4EBR 
CD32DB 


a=F RAB 
aigara 
CDBEDS 
CHOIRS 
EF 

ge 
FEBS 
C2iBBS 
BE 
CSU9ED 
BE 
FEBD 
2098 


ZAAZBZ 
EB 
21ECOG 


@18@FS 
aA 
AE 
77 


2% 
< 


CD14DE 
carga 
a 
FE@D 
CAZSER 
az 
C32BBU 


21880F&G 
SE88 
3688 
23 

3D 
Cazan 
CSAGC7 





ROHR HIHI EE REC RENE 
5# TOP-SECRET * 
s * Pour proteger vos programmes * 
3% ic) 1984 Jean GUERARD pour 1'01 + 
D RSR ROBE SE ARE EE ARE EME HKH IH HH HH II CRE 


ze 
ORG ELBE ssimplantation 

zi 

p*-—————— presentation —— 

5 # 
LXI H MESSE sac message 
CALL ODB3ZH 3;aff. message 

sx 

gt entree de la cle ———— 

2% 

CLE EQU BFSAGR stockage cle 
LXI E CLE. ssdebut de la cle 

GET CALL UDAEBH ssattente d'un 
JZ GET ‚;caractere, 
RST 5 piaffichage de 
DE SH ice caractere, 
STAX B sastockage 
CFI aH 332decr. pointeur 
JNZ TEST 3325i DELCHAR 
DCX B 3:)est pressen, 
JHF GET 

TEST INX B 
CPI ADH afin de la cle 
JNZ GET 

3 

;*—— preparation des adresses ——- 

s * 
LHLD 2H zatin de prgm 
XCHG ii dans DE 
LXI H SECH ssdebut de prgm 

5% 

;*——— codage / decodage du programme ——— 

FE 3 

DEBUT LXI B CLE ssdebut de la cle 

MASQUE LDAX B 331 elt de ia cie 
ÄRA ti şştz= C'EST ICI 
MOV M,A 
INX H 
CALL BDE 14H $:HL-DE?7 
JZ FIN s;colage termine 
LDAX B 33) si la cle est 
CPI BDH 35) finie,on 
JZ DEBUT 33) recommence: 
INX B 3555inon,eiement 
JMP MASQUE $35uivant 

3% 

ike fin seffacer cle,retour au basic ~~ 

ze 

FIN LXI H CLE debut de la cie 
HVI A 86H 33 

EFFACE MYI HM AH son face la 
INX H zizone reserves 
DER à 33a la cle, 
JAZ EFF ACE $3 puis 
JMP BT7ABH ssretour au basic 
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L'utilisation des trames est trés en vigueur dans le dessin 
industriel, la photo ... et aussi l'informatique. En effet c'est un 
procédé qui, utilisé à bon escient sur votre DAI permet d'accroitre 
ses possibilitées 





D'une part, une trame simple peut servir à fusionner  deu8x 
couleurs, C'est, si elle est assez fine, au travers de cette trame 
que sera crée l'impression d'une troisiéme Couleur , mixage des 
deux couleurs de bases de la trame. Ainsi une trame Rouge et Bleu 
donnera un effet Violet. 

Le motif retenue pour la trame est le suivant : 






m — Couleur 1 


een 


Couleur 2 


C'est le quadrillage le plus fin que l’on puisse obtenir avec 

deux couleurs. Car c'est la finesse qui crée l'illusion c'est aussi 7 
pourquoi on emploiera , de preference, un mode graphique haute 
résolution tel que les modes 5,6,7 ou 8. À ce moment la trame devient 

moins percetible à 1'oeuil et le fondu des couleurs est plus 
réaliste. 


Le programme ci-dessous utilise les critéres sus-citée pour afficher 
les 120 couleurs secondaires, par l'utilisation de toutes les 
combinaisons possibles de trames bicolores. 


IMPINT 

1 REM WINNIE EINE RIE RHINE EERE AE 

2 REM ## TRAMES — OCTOBRE 84 “+ 

3 REM ae te ae RI HI RNI IEN 

19 MODE S:DIM A(15) 

20 FOR I=@ TO 15 : READ A(I) = NEXT 

30 FOR Y=@ TO 15 

49 FOR X=0 TO 15 

59 COL=A1Y) 165400 

60 AD-SBU214X44-Ys1350 

76 A=855 

Be FOR J=@ TO 15 

98 FOR 1-6 TO 3 STEP 2 

iee POKE AD-J#9@+1,A 

118 POKE AD-J#90+I~1, COL 

120 NEXT 

136 f INOT (A) IAND #FF 

149 NEXT: NEXT: NEXT 

200 DATA 6,4,8,15,14,10,3,6 

219 DATA 12,1,9,5,13,11,2,7 

220 REM ED. 
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Le tramage des couleurs peut aussi se réaliser a partir de trois 
couleurs de bases, mais les choix des couleurs ainsi que celui de la 
trame devront etre judicieux afin d'avoir un mixage convenable. 





D'autre part, une trame peut servir à representer une valeur 
ou une matiere. L'effet recherché est alors differents de celui de la 
fusion. Ici le fait que la trame soit visible ou non importe peu, ce 
qui compte c'est l'effet qui s'en dégage. On peut dés lors, dans les 
modes 'pauvres' en couleurs, tels les modes 6 & 8, faire appel à ces 
trames pour donner de trés nombreux effets differents. 


Le programme suivant démontre mieux qu'un long discour ces effets de 
textures. Les trames employées ont été déssinées dans un cadre de 
8x8, point par point. 


Par exemple : 





IMPINT 

1 REM BERI nnie kiek 

2 REM ** TRAMES - OCTOBRE 84 s 

3 REM Baa AIE RAE IA 

10 CLEAR 500:DIM A(11,7) 

20 COLORS 9 1 9 12:MODE 6 

3e FOR M=@ TO 11:FOR N=0 TO 7:READ A(M,N):NEXT:NEXT 
40 FOR I=#BFEC TO 48900 STEP -720 

56 FOR J=0 TO 68 STEP 2 

69 FOR K=@ TD 7:POKE I-90#K-J,A(J/6,K):NEXT 
78 NEXT:NEXT 


1000 DATA #AA, #44, #AA, 900, HAA, 811, AA, #00 
1010 DATA 455,4EE, 455, #BB, #55, HEE, #95, #BB 
1020 DATA #00, #55, #00, HAA, #00, 955,400, HAA 
1030 DATA 844,840, #5F, #40, #04, #F5, #04, #44 
1040 DATA #88, #44, #22, #11, 411,822, #44, 888 
1050 DATA #99, #65, #99, #64, #99, #66, #99, 856 
1060 DATA #EE,#AA, HEE, #00, BB, #AA, #BB, #00 
1070 DATA #AA, #55, HAA, #55, HAA, #55, HAA, #55 
1086 DATA #0, 477, #00, #BB, #00, #DD, 800, HEE 
1090 DATA #AA, #99, #55, #46, HAA, 899, #55, 866 
1100 DATA #EE,#11,#EE, A5, BEE, #11, SEE, HAA 
1110 DATA #FF,#FF,NFF,#FF FF, FF, BEF, #FF 
1120 REM C. D. 
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Vous voyez donc que meme avec deux couleurs seulement il est 
possible de representer sun mur puis une route, une veste et des 


chaussures ...! avec les trames les plus adaptées, et à chaque 
matiére sa trame. 





Pour obtenir des resultats encore pius beau, vous pouvez mixer 
les deux methodes et créer des trames de matiéres multicolores. Ces 
méthodes sont trés interessante dans les mode 6 & B car il est trés 


facile d'y dessiner mais le nombre de touleurs est réduits à 4 (Par 
lignes), 


Enfin pour ceux qui n'aiment pas les Pokes un procédé rapide 
d'obtention de trames multicolores est le tracé d'une diagonale sur 
deux. La trame obtenue ainsi est exactement la meme que celle decrite 
au début. C'est ce que démontre aussi ce dernier programme qui 
affiche les 6 trames bicolores possibles en mode 6. 


IMPINT 

1 REM itemise eee ek 

2 REM #* TRAMES - OCTOBRE 84 ## 

3 REM PRE RAI IE AIE REA HKH INI 

16 COLORG 6 1 9 12:MODE 6 

20 FILL 40,0 295,255 21 

30 FOR 1-40 TO 295 STEP 2 

40 DRAW 1,0 295,295-I 22: DRAW 3335-1255 40, 1-40 22 
50 NEXT 

56 FILL 50,16 150,110 20 

70 FOR 1-86 TO 156 STEP 2 

8e DRAW 1,10 150,160-1 21:DRAW 50, 1-40 200-1,110 22 
90 NEXT 


100 FILL 50,245 150,145 21 
119 FOR 1=50 TO 150 STEP 2:DRAW 1,145 150,298-1 23:NEXT 
129 FILL 285,10 185,110 22 
139 FOR I-185 TO 285 STEP 2:DRAM 1,10 285,295-1 23:NEXT 
149 FILL 285,245 195,145 23 


159 FOR I=185 TO 285 STEP 2:DRAW 1,145 285,430-1 20:NEXT 
160 COLORG 6 10 14 3 
178 REM C.D. 


N'hesitez pas à me faire parvenir vos plus belles réalisations 
à partir des trames, ainsi que les trames de matiéres que vous avez 
construites. Bon 'tramages' ! 


Cédric DUFDUR 
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SET EEE A EAE EE E E SEE DEEE SEHE 
ant 


EEE A HE HE EME SEE JE Re E 
Voici deux peti 
(je l'espère) tr 
HERERO IRR Je ede 


CHE HE HE KC E ARE HE ER IEEE EN EEE 
ie DAT qui vous s 










EER E IRE ICI AEH A EEE EER e AEE RARER EER ERNE HE EEE EE 












sans effacer celui 





i> amme BAS memes dy 








tap 


E 


C'est trés simple 3 Vous dev 





ze se cn se sz en 











RER RH ICE CR HE HE DE EH 1e JC Je A EE JOE DE DE EE IEEE ded [E MEER ee HG e e A RR ICI HORE HE II E HEN e dede 


2* Comment supprimer une partie d'un 


amme v7 





taper 





C'est également tr simple s Vous de 















^ 











de Chart ira) 

2 3 QUE vous 
95 ro 

cr. Ë eaw du RUF] d'édition 
6 s LIST return: (REM a Dans la p QH ! ca marche !!!) 






Vande 
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aimiment on 











ie CHARE (CIS 


carré noir dans 
du clavier (nous 






Fon parvenir à 





touch 








la marche à 





eule ligne 
role du 





clavier? 









mémoire du clavier de 
à partir 
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cuve à l' adre 





pouv touche “ñ par urn 


lig pe 






le CHRE (12 
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An 
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Petite liste de CH 






ressant pour ce trucs: 


CHRE (C27) 
CHREOLO) 
CHR 011) 
CHRE CEO) 





izantale 
carré d'une autre couler 






petit 












CHRE (12) = vous ne verrez rien si vous po az Si la t "A en mo 
commande vous passer en éditeur et que vo tape ‘A .vous 








it flèche vers le bas, 





verrez apparaitre une pe 


BCLS) dans un listing, (ex 1000 REM ‘CHRE (12) „vous 
demanderez à l'ordinateur un "LIST" de votre 
& lignes normalement à l'éc mais dés que il 


Si vous places 
yerrez que des que qu 
programme, il imprime 
























rencontre notre petit = vere le (CHRE CIE) , ran va s 
l'ordir la suite du ing en haut l'écran. 





la valeur ASCII de 'à'!!! 
45011,4541 Ht 








!!! Une chos à ne pas oub 


z reme 
11! sur La touc 'A',vous deva taper FOR 








trucs à trouver avec ces CHRE) aaa 





Tl y a encore bien d'autr petit 





wanne Binh toys eee eer eee „Marc Vandermeergechsisesssonenwnumen 
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UTILITAIRE “DESSIN" SEMI-GRAPHIQUE 14 COULEURS 


Cet utilitaire permet de "dessiner" en mode texte i6 
couleurs en utilisant n'importe quel caractère 
semi-graphique du DAI . 


Le caractère sera determiné par 3 conditions : 


alla couleur de son fond 
b)La couleur du caractére 
c)Son code ASCII 


Le programme demande au départ sur combien de lignes vous 
voulez dessiner,la couleur de ces lignes (couleur fond du 
dessin) et enfin la couleur du cadre qui entoure le dessin. 
Il suffit ‚si vous ne voulez pas de cadre, de le mettre de 
la couleur des lignes . 


Vous aurez besoin d'un paddle 3 
d'imagination !!! 

PDL (0) et PDL(1) déplacent le caractere sur l'écran . 
fppuyer sur le bouton du paddle fixera le caractère sur 
l'écran . 

Mettre PDL(2) sur 255 change le caractére à afficher . 
Le programme demande la redetermination du caractère 
(Ne pas oublier de remettre PDL(2) sur @) 


dimensions et d'un peu 


Une fois le dessin terminé s appuyer sur BREAK, faire 
PRINT DEPS,taper UT et W DEP$ BFEF DESSIN. 


Un exemple montrant l'utilisation de ce programme 
Supposons que le dessin terminé aille de #8790 a #BFEF 
Taper UT , MB79@ BFEF 10660,W1000 185F dessin . 

il est alors possible d'afficher ce dessin trés rapidement 
grace au Sous programme langage machine suivant 


ORG 3eah 
9590 CS PUSH B 
6301 110210 LXI D 1000H 
9304 216018 LXI H 1860H 
0307 619087 LKI B @B799H 
@30A CD4FDE CALL ODE4FH 
950D ti POP B 
O30E C9 RET 

END 


Taper ce programme et faire CALLM#300 


Cet utilitaire et le programme en langage machine ont servi 
à "dessiner" le terrain de jeu de la forteresse de ZLARG 
Amusez vous bien et utilisez vos dessins dans vos jeux !!! 


Patrick Pedelaborde 
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REM HARAS DER REED III E III 

REM # UTILITAIRE SEMI-GRAPHIQUE = 

REM SR ES RER RAIN 

REM 

REM IMPINT 

REM 

MODE O:PRINT CHR$(12):COLORT 8 9 Q G:PDKE 875,95 

CURSOR 2, 20: INPUT "NOMBRE DE LIGNES (MAX20/MINS) "3 NL: PRINT 
IF NL<3 OR NL>20 THEN 20 

CURSOR 2,19: INPUT "COULEUR DU FOND (DE @ A 15)"3CDF: PRINT 
IF CFD<@ OR CFD>15 THEN 40 

CURSOR 2,18: INPUT "COULEUR DU CADRE (DE @ A 15)"; CDC: PRINT 
IF CDC<@ OR CDC^18 THEN 50 
CURSOR 20, 15:PRINT "C’EST PARTI 
DEPS=HEXS (SBFEF-NL 48641) 





55!":WAIT TIME SO:PRINT CHR$(12)5 


icu ON MET LES LIGNES EN MODE 16 COULEURS 

= I=@ TO NL-1:POKE #BFEF-1##86, #FA: NEXT 

REM DESSIN FUND ET CADRE AVEC COULEURS DEMANDEES 

za 1=65 TO 3 STEP -1:ñ=#BFEF-(NL-1)*#B6-I#2;:PDKE A,#FF:POKE A-3, CDC#16+CDC: NEXT 


FOR K=1 TO NL-2 
Eon 1=65 TO 64 STEP -1:B=#BFEF-{NL-I-K) #986-182: POKE B, #FF:POKE B-3,CDC#16+CDC: NEXT 
FOR 1=63 TO 5 STEP -1:B=#BFEF-(NL-1-K) #486-1#2: POKE B,#FF:POKE B-3,CDF416*CDF:NEXT 
FOR 1=4 TO 3 STEP ~1:B=#BFEF-(NL-1-K) ##86-1#2:POKE B,#FF:POKE B-3,CDCRi6*CDC: NEXT 
NEXT 

FOR 1=65 TO 3 STEP -1:A=#BFEF-I42:POKE A,#FF:POKE A-3, CDC#16+CDC:NEXT 

REM 

REM RESERVATION FENETRE 

REM 

FEN=#BFEF-NL*#86:POKE #8A,FEN MOD 256:POKE #BB,FEN SHR 8 

REM 

REM QUESTIONS 

REM 

CURSOR 6,23-NL:INPUT "COULEUR DU FOND (0 a 15)"$CFe PRINT 

IF CF<@ OR CF>15 THEN PRINT CHR$(12)::80T0 506 

CURSOR 6,22-NL: INPUT "COULEUR DU CARACTERE (0 a 15) "iCC:PRINT 

IF CC<@ OR CC>15 THEN 526 

INPUT "CODE ASCII DU CARACTERE (6 a 255)"3ASCII 

IF ASCII<® OR ASCII>255 THEN 540 

REM 

REM DEPLACEMENT DU CARACTERE ET DESSIN 

REM 

LIGNE=#BFEF-(NL~1) ##86+INT (PDL (1) # (NL+1) /255) 2986 

POSCAR=L IGNE-INT (PDL (0) /3.9) #2 

X1=PEEK {POSCAR) : Y1 -PEEK (POSCAR-3) 

X2=ASCI 1: V2=CC#16+CF 

POKE POSCAR, X2:POKE POSCAR-3, Y2:WAIT TIME 5 

POKE POSCAR,X1:POKE POSCAR-3,Y1:WAIT TIME 5 

IF PDL(2)>200 THEN PRINT CHR$(12)::60T70 500 

IF PEEK(#FDO0) IAND 4820-0 THEN 600 

X1=X23Y1=Y2:B0T0 450 4 
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REM, opas vetements te Meet ss Ress ———— 
REM cos ccusnosuneonvpence WEGWEISER scscsuouessessenue 
REM onnunssuunnuunonnnanuunn wossecanssanasaseuuorscner 
REM ane ean eee ssecencasns (C) 1984 by Rolf Schall .... 
REM: e eunvassansussansnarnsenmseunsosnen 
REM „oane sasono Erklaerung „enonnonunnenanunsuunsen 


COLORT B 2 © G:MODE 8: PRINT CHR$(12) 

PRINT TAB(16); "Wegseiserspiel V2.0":PRINT 

FRINT "Aufgabe: Der gelbe Fleck ist durch ein Labyrinth von Raeumen” 
PRINT "unterschiedlicher Farbe zu lenken." 

PRINT "Folgen Sie mit Hilfe der Cursortasten den Pfeilen bis zum" 
PRINT "durch ein Kreuz gekennzeichneten Zielpunkt. Versuchen Sie" 
PRINT "danach, zum Ausgangsort mit moeglichst wenigen Schritten zu-" 
PRINT "rueckzufinden. Wenn Sie einen Raum verlassen haben, werden" 
PRINT "die Wegweiser weggewischt." 

PRINT "Wenn Sie aufgeben wollen, druecken Sie SPACE. Es erscheint" 
PRINT "dann der Grundriss des Labyrinth mit allen Durchgaengen." 
PRINT :PRINT "Darin bedeuten:" 


PRINT " Schwarzer Fleck: Anfangs- und Zielpunkt” 
PRINT " Roter Fleck: Endpunkt" 

PRINT " Gruener Fleck: Ihr Standort" 

PRINT " Schwarze Punkte: Hinweg" 

PRINT " Weisse Punktes Ihr Weg" 


PRINT :PRINT TAB(14)5 "Bitte einen Moment warten..." 
REM .......... Initialisierung sc .ssssassssenesaeuesnes 
CLEAR 2000:DIFFICULTYZ-12:WIDTHAZ-10:HEIGHTZ-B8:DIM STATUSZ(WIDTHZ-1, HE 


IGHTX- 1),PASSABEX (3) 


320 
) 
330 
346 
358 
360 
370 
380 
399 
498 
419 
420 
430 
448 
450 
469 
479 
489 
490 
699 
él 


629 


DIM XDIRZ (3) , YDIRX CS), XBEGZ C3) , YBEGZ (3) , OPPOSITEZ (3) , XMOVX (3) , YMOV (5 
YDIRZ(O)-1: YDIRZ (1) 7-1: XDIRZ (2)=-1e XDIRZ C3) 1 

OPPOSITES (8) =1: OPPOSITES (1) =O: OPPOSITEX (2) 23: OPPOSITEZ C3) 22 

FOR 17=0 TO 3: MOVE CIM) =XDIRZ (IX) #82 YMOVZ (12%) =YDIRZ (IX) S8: NEXT 
GOSUB 1500:REM ........ Grundriss und Wegberechnung .. 

PRINT TAB(16)$ "Spiel startet mit SPACE":CALLM #D6DA 

REM ............ Init. der Bildkonstanten ............ 

MODE G:COLORG 8 1 2 14 

XMIDZ-XMAX/2-1: YMIDZ-YMAX/241 

XSZ-XMIDZ48: YSZZYMIDZ4B8 

XBEBZ (8) =XMID%-1&: XBEGZ (1) =XMIDZ+8s XBEGZ (2) -XMAX—31: XBEG C3) 532 
YBEBX (9) 232: YBEGZ (1) =YMAX-31: YBEGZ (2) - YMIDX-16: YBEGX (S) - YMIDZ48 
FILL 2,0 XMAX,YMAX 1:FILL 8,8 XMAX-8,YMAX-8 8 

FILL XMIDX-16,YMIDX-16 XMIDK+14, YMIDZ+16 8 

REM ............. Spielbeginn ........ ................. 

RXZ=START XX: RVAESTARTY A: STATUSZ=STATUSA (RXZ, RY) IOR #8000 
STATUS COOL, RYA) =BTATUSZ 

BOSUB 1010: 50SUB 1209 

REM ........... ... INKEY-Routine ..........s.sss.s....... 

KEYZ-GETC: IF KEYZ=32 THEN 2000:1F KEYZ<16 OR KEYZ519 THEN 610 
KEYZ=KEYZ-16 

FILL XSX,YSX XSZ+7,YSZ+7 B 

XSZ=XSZ+XMO0VY(KEYZ):YSZ=YSZ+YMDVZ (KEYZ) 

IF SURN(XSZ+4,YSZ+4)<X>8 THEN XSZ=XSZ-XMÜVZ(KEYZ):YSZ=Y8SZ-YMUVZ(KEYZ) 
FILL XSZ,YSZ XSZ+7,YSZ+7 14 

IF X5%>7 AND XSZ<XMAX-7 AND YS%>7 AND YSZ<YMAX-7 THEN 610 

REM .............. Wechsel des Raumes ................ 
DIRECTIONZ-KEYX:IF DESTIMATIONX-1 THEN STPSZ=STPSZ+1 
RXZ=(WIDTHZ+RXZ+XDIRZ(DIRECTIONZ)) MOD WIDTHZ: RYZ=(HEIGHTZ+RYZFYDIRZ í 


DIRECTION) ) MOD HEIGHT 


830 

846 
859 
866 
878 
880 
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STATUSGZ-STATUSZ (RXZ, RYZ) = GOSUB 1600 

IF STATUSX IAMD 82400-4400 THEN GOSUB 1209 
IF STATUSZ IAND #199>@ THEN GOSUB 1566 

IF STATUSX IAND #20030 THEN GOSUB 1490 
XSZ-XBEGZ (DIRECTIONS) : YST- YBEBZ (DIRECTION) 
FILL XSX,YSX X5SZ+7,YSZ+7 14 


*WEGWEISGERS 





899 STATUSZ (RXZ,RYZ)=STATUSZ IOR #2000:REM Raum betreten 
990 SOTO 610 


916 REM ................. Zurueckgefunden ........sssss... 

929 PRINT "Schritte hin:"; ROUMSZ, "Zurueck"3; GTPSX-1 

938 END 

1800 REM ................ Neuen Raum zeichnen ............ 

1016 OPPOSITEZ=OPPOSITEZ(DIRECTIONZ) :COLORG 8 STATUSZ IAND #F 2 14 
1826 FOR IZ-6 TO 3:PASSAGEZ(1Z)=(STATUSZ SHR IZ+4) IAND i:NEXT 
1839 FILL XMID/-16, YMAX XMIDZ*15,YMAX-7 21-PASSAGEZ (9) 


1049 
1950 
1860 


FILL XMIDZ-16,0 XMIDZ+15,7 21-PASSAGEX (1) 
FILL @,YMIDZ-16 7,YMIDZ+16 21-PASSAGEZ (2) 
FILL XMAX,YMIDZ-16 XMAX-7,YMIDA*16 21-PASSAGEZ (3) 


1970 FILL XMIDX-B,YMIDZ-8 XMIDZ*8,YMIDZ48 20 
1089 RETURN 
1200 REM ............... Wegweiser zeichnen ......... ane 


1219 WAYZ=(STATUSZ(RXZ,RY%} SHR 11) IAND 3 

1220  WXX-XMOVZUIAYL) : WYZ=YMOVZ (HAYZ) 

1230 DRAW XMIDZ-WXZ,YMIDZ-WYZ XMIDA+WXX, YMIDZ+WYX 23 

1240 DRAW XMIDX-WYZ/2,YMIDX-WXX/2 XMIDZ+WXZ,YMIDZ+WYZ 23 

1250 DRAW XMIDZ+WVYZ/2,YMIDZ+WXZ/2 XMIDZT-WXZ,YMIDZ4WYX 23 

1269 RETURN 

1300 REM ............... Start erreicht .......... Wis Wate Ts 

1319 FILL XMIDZ~4, YMIDZ-4 XMIDZ+4, YMIDZ+4 22:FILL XMID%-3, YMIDA-3 
YMIDX4-3 29 

132 IF DESTINATIONZ-1 THEN 916 

1330 RETURN 

1406 REM ............... Ende erreicht …...sneneansassnane 

1418 DRAW XMIDZ-4,YMIDX-4 XMIDZ+4,YMIDZ+4 22:DRAW XMIDZ+4,YMIDZ-4 XMID4-4, 
YMID4+4 22 


XMIDZ+3, 


1420 DESTINATIONZ=1 

143@ RETURN 

1598 REM ............... Hauptdurchgang .................. 
1519 STARTXZ=RND(WIDTHX) : STARTYZ=RND CHEIGHTA) 


1520 RXX-STARTXZ:RYZ-STARTYAZ: OPPOSITEX=S: ROOMSZ=RND CDIFFICULTY) 
STATUS (RXZ, RYA) =#100 

FOR IZ=@ TO RODMSZ 

DIRECTIONZ-RND (4) : IF DIRECTIONZ=OPPOSITE% THEN 1550: OPPOSITEZ=0PPOSIT 
EX (DIRECT TON) 

1560 STATUSZ(GXX,RYX)-STATUSZ(GOXZ,RYT) IOR #400 IOR (DIRECTIONZ SHL 11) 10 
R (16 SHL DIRECTION) 

1570 RXZ=(WIDTHZ+RXZ+XDIRZ(DIRECTIDNZ)) MOD WIDTHZ:RYXZ=(HEIGHTX+RYZ+YDIRXA( 
DIRECTIONX)) MOD HEIGHTZ 

1589 STATUSZ(RXZ,RYZ) =STATUSZ(RXX%,RY%Z) IOR (16 SHL OPPOSITE) 

1596 NEXT IX:5TATUSX(GXA,RYX)-STATUSZ(RXZ,RYZ) IDR #260 

1600  XENDZ-RXX: YENDZ-RY. 

1800 REM ............. Durchgaenge & Farben ....,,.,.,... 

1818 FOR 1%=@ TO WIDTHZ-1:FO0R J4=@ TO HEIGHTZ-1 

1826 COLZ-RND(14):1F COLZ-B THEN 1820 

1930 DIRECTIONZ=RND (4)  STATUSI (IX, J'A)=STATUSZ (IX, 0%) IDR COLA IOR (16 SHL 
DIRECTIONZ) 

1846 RXZ=(WIDTHZ+IZ+XDIRZ(DIRECTIDNZ)) MOD WIDTHZ:RYZ=(HEISBHTZ+JZ+YDIRZA (DI 
RECTIONZ)) MOD HEIGHT 


1850 STATUSZ(RXZ, RYZ)=STATUSZ(RXZ,RY%) IOR (16 SHL ÜPPOSITEX(GIRECTIONA)) 
1860 NEXT JZ:NEXT IX 

1870 RETURN 

2900 REM ......... sésaasas Plan n sasa sua a a nenn 

2010 MODE 3 I 

2020 FOR IZ=@% TD WIDTHZ-1:FOR JZ=@ TD HEIBHTZ-1:XIZ=IZ*16: XJZ=JZ*16 

2038 FILL XIZ,XJZ XIZ+15,XJZ+15 STATUSZ(IZ,JZ) IAND SF 

2040 FILL XIZ+2,XJZ+2 XIZ+13,XJZ+13 8 

2050 NEXT JZ:NEXT IX 

2040 FOR IZ=@ TO WIDTHZ-1:FDR JZ=@ TO HEIGHTZ—-1: XIV: XJ4=J4#16: STATUS 


X=STATUSZ(IX,JZ) 

2070 IF STATUSX IAND 16>@ THEN FILL XIZ+6,XJX+14 XIZ+10, XZ+15 8 
2686 IF STATUSX IAND 3220 THEN FILL X1%+6,Xd% XIZ+10,XJZ+1 8 
2690 IF STATUSZ IAND 6439 THEN FILL XIZ,KJ%+6 XIZ+1,XJZ+19 8 
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21989 IF STATUSZ TAND 128506 THEN FILL XI1IZ+14, XJZ+6 X1Z+15, X3Z+10 8 
2110 IF STATUGA LAND 440620 THEM DOT X1Z2+8, XJZ+6 6 

2129 IF STATUSX IAND #200020 THEN DOT XIZ+8, XJZ+10 15 

21310 NEXT JZ:NEXT I% 

2149  X1X-STARTXZs16: bie STARTYZ*16 

2198 FILL XIZ+2, XJ% XIXZ*12, XJR 12 OREM ............... START 
2169 XTX-XENDZ&16: XJZ=YENDXXI& 

2178 FILL XIX42, XIZ42 XIY412 QXJZT12 2:REM zoons ss es... ENDE 
2180 XIZ=RXZ Elbe XJZ-RYZ*16 

2198 FILL XIZ42,XJ4742 XUL-12,XJ03412 S:REM ............ STANDORT 
2200 GOTO 2200 

S900. BEM uw ua sies S ERE Beds Bte ee ee seek 
3910 REM ....... sus... BIT- Belegung STAT k in opinia wap în, ER 
3020 REM ..... @ š : Farben ....... PEN. : Tueren ... 
3934 REM ..... 8: Start ..... € : Ende ..... 
3040 REM ..... 16 : Weg ...........s. 11-12 : Richtung . 
3959 REM ..... 13 : Vom Spieler betretenes Feld ........ 
3059 REM ...... Wis mum B SUR ELE eres Wwe EE PUR n isis MORTE A MR eae einen, w RR NOR ee. 
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pBRSIC V2.2 


1. A new version of DRASIC 

In using DBASIC VAT vou may have noticed the pr 
specially in errar=traeping or extension-evaluation. 
Ail the errors which have been detected and communicated to me have bean 
corrected in DBASIC VE. EZ. Besides this corr ONS: Sone new sta wente 
have been impiemented. Some of them will mentioned later on in this 
articie, 





af san bugs, 












2. Mew ext ensions 





Besides a new version of the DBASIC  iansuase; 
available. One of them generates a structured 
reference + this extension will be the main Subject of this artir 
Another extension allows you to define and use function Keys, 
PFK$ in the program listing, 








3, Structured 
The program listing on the next pases is an example of the auteut produced 
by the SXREF extension. By Simply typing SLIST a structured listing of the 
complete Program: followed by aycross-reference is produced. 

Another command: XREF: wili Skip the structured listing and will directly 
output a cross-reference, 






B.A Structured listing 


Bs can be seen in the program listing: DBASIC program lines are spread out 
On Several listing lines to enable correct indentation of 3 


iteration structures (ex, FOR/NEXT, REPEAT/UNTIL, WHILE/WEND). 

»Selection structure (ex. IF/ELSIFinew in DBASIC VE, 29 /ELSE/END IF, 

„definition structures (ex. PRODEDURECDEF PROC? END PROC: FUNCTIONCDEF 
FAD ZEND FAD, 


A counter also shows the level of indentation, 


Special care has been taken for some details + 
line numbers are printed rigth justified 
"keywords: symbols or text will! not be splitted at the end of the line 
„the title will be truncated if it is to iong 
„Pages are numbered 


Z.B cross-reference 
B cross-reference could be a very Useful! help in debugsins your software, 


For clarity the DBASIC cross-reference sSroubS all symbols into & different 
Classes : 
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„extended commands & PUNET) ONS.. CX option) 





„EPITET, P" (P option) 
FUNDE EONS. rn nn nn s..... rea $F option) 
Abelse: sanne enen una. EL option) 
SU PAYSVV E OR RUE UK we ack, et NS OD dt eee CA option) 
AVATIADL BSc cree nuns URL S IR E rss CY option) 


Special care has been taken for some details * 

„tor functions.arrays and variabies the type is indicated 

‚tor functions and arrays the Li indicates the necessity of arguments 

"tine numbers are rigth justified 

„the First Line number indicates the iine where the symbol is defined 
(mk, procedures: TURE on: labels: arrays?) or used the first time 


3,5 General syntax 


The general syntax is + 


$LIST[ first tine] tast iing (+ titre] Croptions] — ana 


XREFE first line] last 'ine]p:titre] Cioptions] with 
first line * Jine number from where to start the structured Fisting 
last fine 5 Pire number where to end the structured Listing 
title |? the heading on each page 
options * options for the cross-reference output 


wx. $LIST 100 500, "TEST PROGRAM" "FP" 

This command asks for a structured listings starting with line number 100 up 
to bine number SOO with heading TEST PROGRAM and produces a cross-reference 
of functions and Procedures 


3. D Default values 


default range * complete program 

default header ! the string expression following tne DBASIC TITLE 
statement, IT the program does not contain a TITLE state- 
ment the default header is an empty string. 

(note 1 the TITLE statement is also used as a default for 
SAVE) 
"XPFLAV" ie, 
extended commands & functii ons. 
of all procedures, ..and SC an... 


first print the cross-reference of all 
fiam “am 5 Tre DET 


defauti options * 





4 Other DEASIC aprovements 


Besides error correction and implementation of new Statements, I have 
implemented extended functions in DBASIC V2.2 (see PFK$), The execution 
time of extended commands and functions has been diminished quite a bit dus 
ta the addition of an extra compilation Pass. For more information see the 
documentation of DBASIC V2.2 and the extension's documentation. B 


Witiy Coremans 
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MANIPULATE PROGRAMMABLE FUNCTIDN KEYS 


ON BREAK GOTO "TRAPBREAK 
TITLE "MANIPULATE PROGRAMMABLE FUNCTION KEYS" 
REM to enable/disable function keys--type PFKON/PFKOFF 
REM to use function keys--type <ctri> and 0 to 9 at the same time 
PROCEDURE HOME : 
PRINT CHR$(12)3: 
END PROC 
PROCEDURE PFKTOARRAY 
LOCAL I 
FOR 1=0 TO 9: 
A$ (1)=PFK3 (I): 
NEXT 
END PROC 
PROCEDURE ARRAYTOPFK 
LOCAL I 
FOR I-0 TO 9: 
PFK I,0$(D: 
NEXT 
END PROC 
PROCEDURE CLRPFK : 
LOCAL J 
FOR J=9 TO 9: 
PFK J,"": 
NEXT 
END PROC 
FUNCTION PRNTPFKS (J): 
LOCAL I:HOME 
FOR I=@ TO J: 
PRINT PFK$(1): 
NEXT 
FN = "#3 
END FN 
"START 
DIM AR$(9) 
REPEAT 
HOME 
CURSOR 18,20: PRINT "i--ARRAY TO FUNCTION KEYS" 
CURSOR 19,19:PRINT "2--FUNCTION KEYS TO ARRAY" 
CURSOR 19,18:PRINT "3--CLEAR FUNCTION KEYS" 
CURSOR 10,17:PRINT "4--PRINT FUNCTION KEYS & END PROGRAM" 
CURSOR 0,0:PRINT "SELECT CHOICE "3 
REPEAT 
I-GETC-ASC ("0"): 
UNTIL 150 AND I<S 
CURSOR 14,0:PRINT Is:WAIT TIME 10 
IF I-1 THEN 
ARRAYTOPFK AR$( 
ELSIF 1-2 THEN 
PFKTOARRAY AR$(O 
ELSIF 1=3 THEN 
CLRPFK 
ELSE 
PRINT PRNTPFK$ (9) 
END IF 
UNTIL I-4 
END 
"TRAPBREAK 
CONTINUE 


ARR AS: 


ARR AS: 
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extended commands & functions : 




















PFK 310 410 



































PFK$ 210 519 




























































































procedures : 




































































































































































































































































































































































































































ARRAYTOPFK 300 1940 — 
ELRPFK 400 1075 
HOME 199 590 1005 
PFKTDARRAY 200 1970 
a PRNTPEK& 0) 500 1080 
j 
START 1000 
TRAPBREAK 3000 19 
ARS U) 1000 1040 1070 
| A$ 0 200 210 300 319 
| 1% 209 219 300 310 500 sie 1056 1955 1050 
1979 1075 1190 
3% 499 410 509 519 
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